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

program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

write (' введите заданное число '); / / вводим с клавиатуры число

read (x);

if x < 0 / / проверяем, если введенное число отрицательное, то

then y:=x + 100 / / вычисляем ответ, прибавив к исходному числу сто

else y:=x - 50; / / иначе, вычисляем ответ, отняв от исходного числа пятьдесят

write (' Полученный ответ = ', y); / / выводим ответ

end.