program Vypocet_delky_prepony;

uses crt;

var preponaa, preponab, odvesna: real;

begin
  clrscr;
  writeln('Tento program vypocte delku prepony pravouhleho trojuhelnika z jeho odvesen.');
  write('Vloz delku prvni prepony: ');
  readln(preponaa);
  write('Vloz delku druhe prepony: ');
  readln(preponab);
  odvesna := sqrt(preponaa * preponaa + preponab * preponab);
  writeln('Odvesna ma delku: ',odvesna:8:2,'.');
  writeln;
  writeln('Stiskni ENTER ...');
  readln;
end.