Напишите, программу для о прямоугольнике: даны 2 стороны прямоугольника a и b. найти его периметр и площадь. (язык программирования pascal).

Var
a,b,p,s:real;
begin
writeln('введите стороны прямоугольника');
read(a,b);
s:=a*b;
p:=2*(a+b);
writeln('площадь прямоугольника равна: ',s);
writeln('периметр прямоугольника равен: ',p)
end.