Abc pascal: знайдіть периметр рівносторонього трикутника зі стороною а

 var a,p:integer;
begin 
   writeln('введите сторону a'); 
    readln(a); 
     p:=3*a; 
     writeln('периметр=', p);
end.