Составить алгоритм и программу для нахождения периметра и площади прямоугольника.

Var a,b,p,s:real;
begin
writeln('Введите размеры');
readln(a,b);
p:=(a+b)*2;
s:=a*b;
writeln('P=',p,' S=',s)
end.