Составьте программу на языке паскаля , позволяющую вычислить s и p прямоугольника (которая будет работать).

Program s_i_p;
var a,b,s,p:real;
begin
writeln('введите значение двух сторон');
readln(a,b);
s:=a*b;
p:=(a+b)*2;
writeln('площадь ',s,' периметр ',p);
end.