program mencarisisimiringsegitigasikusiku;
uses crt;
procedure hitung(A,B : real);

var
r : real;
begin
r:=SQRT(A*A+B*B);
writeln(‘Panjang sisi tegak =’,A:2:2);
writeln(‘Panjang sisi datar =’,B:2:2);
writeln(‘Jadi panjang sisi miring adalah =’,r:2:2);
end;
var
g,b : real;
begin

clrscr;
write(‘Panjang sisi tegak = ‘);
readln(g);
write(‘Panjang sisi datar = ‘);
readln(b);
hitung(g,b);

end.