Program test1;
Var c:integer;
Begin
Readln (c);
if c<0 then
c:=c+10
else
if c>0 then
c:=c-10
else
write('число равно 0');
write(c)
End.
Program test2;
Var a,b:integer;
Begin
Readln (a,b);
if a<b then
b:=b-a
else
if a>b then
a:=a-b;
write(a,' ',b)
End.
Program test3;
Var r:integer;
Begin
Readln (r);
if r>=180 then
write('высокий')
else
write('нормальный')
End.
