Program begin_12-

Uses crt-

Var — a,b: integer-

c,p,s:real

Begin

Clrscr-

Writeln(‘введите а и b’)- readln(a,b)-

c:=sqrt(sqr(a)+sqr(b))-

p:=a+b+c-

s:=1/2*a*b-

writeln(‘s=’,s:4:2,’p=’,p:4:2)-

Readln-

end.