Nếu bạn muốn cho kết quả dễ nhìn một chút thì sửa lại 1 chút:
Program BT;
uses crt;
var a, b, c: real;
begin
write('Nhap 2 canh goc vuong cua tam giac vuong: '); readln(a,b);
c:=0;
c:=sqrt(a*a+b*b);
write('Canh huyen cua tam giac vuong do la: ', c:2:2);
readln;
end.