Question

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

Answer 1

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