Відповідь:
Var a,b,P:real;
Begin
writeln(' Введіть ісходні дані:');
write('Довжина (см) –> ');read(a);
write('Ширина (см) –> ');read(b);
P:=(a+b)*2;
Writeln('Периметр = ',P:1:2,' см.');
end.
