Ответ:
Объяснение:
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</p>
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.