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

Program n1;
var a,b: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
writeln('S=',a*b);
writeln('P=',(a+b)*2);
end.