1. var a:integer; begin write('Введите число: '); readln(a); if a>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*b<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 a>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 r>180 then writeln('высокий') else if r=180 then writeln('нормальный') else writeln('низкий'); end.
