, решить. Очень нужна ваша см фото.

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.