Question

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

Answer 1

program Perimetr;

var

D : integer;

begin

 

writeln('Dlina storon: ');

read(D);

 

D := 3 * D;

 

writeln('Otvet',D);

 

end;