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;beginread(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.