даны длины сторон прямоугольника составить программунайти периметр и длину диагонали.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.