program test2;
uses crt;
var
a,b: integer;
c: real;
p: string;
procedure prepona(a,b:integer; var c:real);
begin
c:=sqr(a)+sqr(b);
c:=sqrt(c);
end;
begin
clrscr;
repeat
writeln('Zadej stranu a: ');
read(a);
writeln('Zadej stranu b: ');
read(b);
prepona(a,b,c);
writeln('Delka prepony c je: ',c:1:1);
readkey;
writeln('Dalsi vypocet A/N?');
read(p);
until (p='N') or (p='n');
end.