Ответ:

Объяснение:

program zadacha1;

var x :real;

begin

write('Дано число= ');

readln(x);

If (x>0) then

writeln('Конечно чило=', x+1)

else

write('Конечно чило=', x-2);

 end.

--------------------------------------------------------------------------------------------

program zadacha2;

var x,y :integer;

begin

 write('первое число=');

 readln(x);

 write('Второе число=');

 readln(y);

 If (x*y<0) then

 Writeln('Произведение 2ух чисел отрицательное=', x*y*-2)

 else

 Writeln('Произведение 2ух чисел НЕ отрицательное=', x*y*1.5);

 end.

--------------------------------------------------------------------------------------------

program zadacha3;

var x :integer;

begin

 Write('Введите рост человека:');

 readln(x);

 If (x>180) then

 writeln('ВЫСОКИЙ')

 else

 writeln('Не очень высокий');

end.