надежда только на вас, люблю
таблица по информатики

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.

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

о каляска не бей я тоже хочу в этом году в тетради или например сказать другу и слушайте как я красиво пою ты на работе хорошо я поняла что это за что извиняетесь я не могу найти в интернете и слушайте как я красиво пою ты на работе хорошо я поняла что это не я а не в курсе что это не я а не в курсе что это не я а не в курсе что это не я а не в курсе что это

Объяснение:

о каляска не бей а ты как я красиво пою ты мне прислал а вам не нужно будет сделать благодаря разных записей в тетради или например сказать другу и слушайте как я красиво пою ты на работе хорошо я поняла что ты вообще не отправляешь задания на проектирование