program PerimetrRect;
vara, b, Perimetr: real;
beginwrite('Введите длину стороны a: ');readln(a);
write('Введите длину стороны b: ');readln(b);
Perimetr := 2 * (a + b);
writeln('Периметр прямоугольника = ', Perimetr:0:2);
end.
program PerimetrRect;
var
a, b, Perimetr: real;
begin
write('Введите длину стороны a: ');
readln(a);
write('Введите длину стороны b: ');
readln(b);
Perimetr := 2 * (a + b);
writeln('Периметр прямоугольника = ', Perimetr:0:2);
end.