program ppch;
uses
crt;
var
d, p: real;
begin
writeln('Введите длину прямоугольника:');
readln(d);
p := 2 * d + d; // либо p:=3d;
writeln('Периметр: ', p);
readln;
end.
