Mencari sisi miring

Program Sisi_miring_segitiga;
uses WinCrt;
Var
a,b :byte;
c :real;

Begin
Write('sisi alas segitiga siku-siku = '); ReadLn(a);
Write('sisi tegak segitiga siku-siku = '); ReadLn(b);
c:=sqrt(sqr(a)+sqr(b));
Write('sisi miring segitiga siku-siku =',c:1:2);
End.