помогите.пожалуйста
Написать программу на языке Паскаль для решения задачи: По данным сторонам прямоугольника вычислить его периметр, площадь и длину диагонали. Входные данные задать самостоятельно. Для проверки подготовить код программы и результаты ее работы.

Var a,b,S,P:Integer; d:real;Begin Writeln('Введите стороны прямоугольника'); Read(a,b); P:=2*(a+b); S:=a*b; d:=sqrt(sqr(a)+sqr(b));Writeln('Периметр=', P);WriteLn('Площадь=', S);WriteLn('Диагональ=', d:6:2);End.