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

program zz1;

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

begin

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

read(x);  

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

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

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

write( Приобретенный ответ = , y); // выводим ответ

end.