Решить по abc pascal даны стороны прямоугольника а и b. найдите периметр и полщадь s=a*b p=2*(a+b) a=6.90 b=5.80 буду !

Var
a,b,p,s:real;
begin
  Writeln('Введите значение а = ');
  read(a);
  writeln('Введите значение b = ');
  read(b);
  s:=a*b;
  p:=2*(a+b);
  writeln('Площадь = ',s);
  Writeln('Периметр = ', p);
end.