Відповідь:

Var a,b,P:real;

Begin

 writeln(' Введіть ісходні дані:');

 write('Довжина (см) –> ');read(a);

 write('Ширина (см) –> ');read(b);

 P:=(a+b)*2;

 Writeln('Периметр = ',P:1:2,' см.');

end.