))информатика написать программу нахождения периметра правильного треугольника, сторона которого равна a.

Program z1;
var a:integer;
begin
write('Введите сторону A:');
read(a);
writeln('Периметр равен:',a*3);
end.