посчитайте решить тест, ​

11) c - 75

12) b - 20

13) program pr;

uses crt;

var

a,b,h,p,s : integer;

begin

clrscr;

readkey;

a:=6; b:=3; h:=4;

s:=a*h;

p:=2*(a+b);

writeln('p=',p,' s=',s);

end.

Это полностью правильный и рабочий код, подставьте цифры просто.

14)

Правильная прогрмма:

var

a,b,c,x : real;

begin

a:=7;

b:=3,2;

c:=a+b;

writeln('Summa = ', c);

c:=c/2;

x:=a-c;

writeln('x=', x, 'kvadrat=',sqr(x));

end.

15)

var

a1,b1,a2,b2,s : real;

begin

readln(a1,b1,a2,b2);

s:=sqrt((a2-a1)+(b2-b1));

writeln(s);

end.