Напишите программу на паскале составте программу для вычечления периметра равностороннего треугольника длинна видите на клавиатуре, нада зарание

Program perimetr;
var n,p: integer;
begin
readln (n);
p:=n*3;
writeln (p);
end.

Program perimetr;
uses crt;
var a,p:integer;
begin
read(a);
p:=a*3;
writeln('Периметр равен ',p);
readkey;
end.