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
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