Question

ввести число если оно не отрицательно вычесть из него 50, в противном случае прибавить к нему 100. Решение

Answer 1

var a : real;

begin 

  readln(a);

  if a>=0 then writeln(a-50) else writeln(a+100);

end.