Составить программу с помощью которой компьютер запрашивает длину и ширину прямоугольника и вычисляет периметр и площадь и выводит результат на экран

Программа написана на языке Pascal:

var a, b, p, s:real;

begin

writeln ('Введите длину прямоугольника');

readln (a);

writeln ('Введите ширину прямоугольника');

readln (b);

p: = (a+b) * 2;

s:=a*b;

writeln ('Периметр прямоугольника = ', p);

writeln ('Площадь прямоугольника = ', s);

end.