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.
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.