Ввести с клавиатуры значение сторон прямоугольника, вычеслить его площадь и периметр. Результат вывести на экран.

Помогите

Program qwerty;

var a, b, P, S: real;

begin

writeln ('Нахождение периметра и площади прямоугольника');

write ('Введите значение первой стороны прямоугольника: ');

read (a);

write ('Введите значение второй стороны прямоугольника: ');

read (b);

P:=2 * (a+b);

S:=a*b;

writeln ('Ответ: периметр = ', P:7:2, ', площадь = ', S:7:2,'.');

end.