Question

Напишите программу для блок схемы.

Answer 1

var

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

begin

readln(a,b);
c:=sqrt( sqr(a) + sqr(b) );
p:=a+b+c;
writeln(c);
writeln(p); 

end.