что у меня не так сделано что мне не выдает ответ паскаль

program pr27;
var a, b: integer;
d: real;
begin
writeln (' введи значение числа а и б ' ) ;
readln (a);
readln (b);
d:= sqrt(sqr(a)+sqr(b));
writeln ( ' площадь прямоугольного треугольника ровна d:=d' );
end.