Решить по информатике, паскаль

program raf105;

var a,b,c:integer;

begin

write('Введите 3 числа через пробел: ');

readln(a,b,c);

if a >0  

then a:=a+10

else a:=a-10;

if b >0  

then b:=b+10

else b:=b-10;

if c >0  

then c:=c+10

else c:=c-10;

write('Вывод: ',a,', ',b,', ',c);

end.

Написано на языке  PascalABC.NET