Составьте программу для вычисления периметра равностороннего ...

Ирина

program Perimetr;

var

D : integer;

begin

 

writeln('Dlina storon: ');

read(D);

 

D := 3 * D;

 

writeln('Otvet',D);

 

end;