1) Ввести число. Если оно неотрицательно (больше 0), вычесть из него 10,
иначе – прибавить к нему 10
2) Ввести 2 числа. Если их произведение отрицательно, умножить его на
-2 и вывести на экран, иначе – увеличить его в 3 раза и вывести на
экран
3) Ввести два числа. Вычесть из большего меньшее
4) Ввести рост человека. Вывести на экран “высокий”, если его рост
превышает 180 см, “нормальный” и “низкий”.

1.
var a:integer;
begin
write(Введите число: );
readln(a);
if agt;0 then a:=a-10 else a:=a+10;
writeln(a = ,a);
end.

Пример:
Введите число: 5
a = -5

2.
var a,b,p:integer;
begin
writeln(Введите два числа: );
readln(a,b);
if a*blt;0 then p:=-2*a*b else p:=3*a*b;
writeln(p = ,p);
end.

Пример:
Введите два числа: 
-3 -8
p = 72

3.
var a,b,r:integer;
begin
writeln(Введите два числа: );
readln(a,b);
if agt;b then r:=a-b else r:=b-a;
writeln(r = ,r);
end.

Пример:
Введите два числа: 
25 48
r = 23

4.
var r:integer;
begin
writeln(Введите рост: );
readln(r);
if rgt;180 
 then writeln(высокий)
 else if r=180 then writeln(нормальный) else writeln(низкий);
end.

Пример:
Введите рост: 
160
низкий