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

program count;

var a, b, s, p: real;

begin

writeln (‘Введите значения длин двух сторон прямоугольника‘ );

readln (a, b);

s := a * b;

writeln (‘Площадь равна ‘, s);

р := 2 * (a+b);

writeln (‘Периметр равен’, р);

end.