По теме программирование. по заданным сторонам прямоугольника a и b вычислите его периметр и площадь , экзамен скоро.

Program f1;

var a, b, P, S: Real;

Begin

a:=5;

b:=3;

P:=(a+b)*2;

S:=a*b;

Writeln(P;S);

END.

Числа a и b можешь вставить какие хочешь!

uses crt;
var a,b,s,p:real;
begin
  clrscr;
  write('a='); read(a);
  write('b='); read(b);
  s:=a*b;
  p:=2*(a+b);
  write('S=',s,' P=',p);
end.