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