напишите программу , которая зачисляет площадь и периметр прямоугольника по длинам двух его сторон

Program pr;uses crt;Var a, b, p, s:real;BeginWriteln('Введите сторону a');readln(a);Writeln('Введите сторону b');readln(b);s:=a*b;p:=2*(a+b);Writeln('Площадь = ', s);Writeln('Периметр = ', p);readln;end.