Question

Допишите программу на языке Паскаль. См. Фото. Пожалуйста помогите очень нужна ваша помощь.

Answer 1

Ответ:

var x:Integer;

begin

WriteLn('Введите целое число: ');

ReadLn (x);

if x > 0 then

WriteLn('x, равная', x, 'больше 0')

else

if x < 0 then

WriteLn('x, равная', x, 'меньше 0')

else

WriteLn('x, равная', x, 'равно 0')

end