3# Pitagora funkcija

program pitagora;
 uses crt;
 var a,b:integer;

  function c_izrac(a,b:integer):real;
   begin
       c_izrac:=sqrt(abs(sqr(a)+sqr(b)));
   end;

  begin
    clrscr();
    writeln('program za izracunavanje hipotenuze trougla');
    writeln();
    writeln('Unesite a katetu');
    write('a=');
    readln(a);

    writeln('Unesite b katetu');
    write('b=');
     readln(b);

    //Izracunva hipotenuzu
    writeln('c=',c_izrac(a,b):6:6);



    readln();
  end.