Помогите решить тест, пожалуйста! ​

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.