Ввести число. Если оно неотрицательно, вычесть из него 10, в противном случае прибавить к...

Question

Ввести число. Если оно неотрицательно, вычесть из него 10, в противном случае прибавить к нему 10 помогите пж,

Answer 1

Var A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A>=0 then A:=A-10
else A:=A+10;
Write(A);
End.

Comments

спс