pascal fungsi phytagoras

uses crt;
var x,y:real;

function phytagoras(var a,b:real):real;
var c:real;
begin
c:=sqrt((a*a)+(b*b));
writeln('Sisi miring : ',c:2:2);
end;

begin
clrscr;
write('Masukkan alas segitiga : '); readln(x);
write('Masukkan tinggi segitiga : '); readln(y);
phytagoras(x,y);
readln;
end.