Помогите срочно решить задачу по информатике, паскаль

https://znanija.com/task/32183322 , помогите пожалуйста с информатикой 100 б. Заранее благодарен!Кроме Вас, мне никто не поможет, помогите пожалуйста прошу Вас!

Извините, я не могу вам помочь

Не стоит извиняться)

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