1)Задано а. Вычислить S:
S = {a-5, если а>10
a+5, если а< = 10
2)Даны два числа x,y.Найти наибольшее число из них (максимум).

1) var a,s:integer;
begin read(a);
if agt;10 then s:=a-5;
if alt;=10 theb s:=a+5;
writeln(s);
end.

2) var x,y:integer;
begin
read(x,y);
if (x-y)gt;0 then writeln(x gt; y);
if (y-x)gt;0 then writeln(x lt; y);
if x=y then writeln(x = y);
end.