Program gftubgfffgg;

Uses crt;

Var a, b, S, P: real;

Begin

Clrscr;

Write('введите длину>>');

Readln(a);

Write ('введите ширину>>');

Readln(b);

S:=a*b;

P:=(a+b)*2;

Writeln('Периметр =', P);

Writeln('Площадь =', S)

End.