Вычислите значение гипотенузу треугольника,если известны ее катеты. (составить блок-схему)

Var
a,b,c,z:real;
begin
writeln ('введите 1 катет треугольника');
read (a);
writeln ('введите 2 катет треугольника');
read (b);
c:=(a*a+b*b);
writeln ('теорема пифагора ',c);
end.