1) Задано а. Вычислить S:

S={a-5, если а>10

a+5, если а<=10

2) Даны два числа x, y. Найти наибольшее число из них (максимум).

1) var a, s:integer;

begin read (a);

if a>10 then s:=a-5;

if a<=10 theb s:=a+5;

writeln (s);

end.

2) var x, y:integer;

begin

read (x, y);

if (x-y) >0 then writeln ('x > y');

if (y-x) >0 then writeln ('x < y');

if x=y then writeln ('x = y');

end.