Задача 1.
var
a,b,S,d: real;
begin
a:=5;
b:=8;
d:=sqrt(sqr(a)+sqr(b));
S:=a*b;
writeln('d = ',d);
writeln('S = ',S);
end.
Задача 2.
var
a,h,S: real;
begin
a:=10;
h:=15;
S:=1/2*a*h;
writeln('S = ',S);
end.
Задача 3.
var
a,b,h,S: real;
begin
a:=10;
b:=20;
h:=8;
S:=1/2*(a+b)*h;
writeln('S = ',S);
end.