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

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