Даны длины сторон прямоугольника составить программу найти периметр и длину диагонали. pascal. .заранее !

Program sasaylalka;
var a,b:integer;
P,d:real;
begin
writeln('Введи стороны');
readln(a,b);
P:=2*(a+b);
writeln('Периметр равен ',P);
d:=sqrt(sqr(a)+sqr(b));
writeln('Диагональ равна ',d);
readln;
end.