Question

напишите программу в Pascal АВС для нахождения периметра.

Answer 1

program PerimetrKv;
var a,P: integer;
begin
writeln('Vvedite dlinu storoni kvadrata');
readln(a);
P:=4*a;
writeln('Perimetr kvadrata P= ', P);
readln(P);
end.

Единственное - программу написала на Турбо Паскале. Думаю, что от ABC не должно сильно отличаться.

85c728d8eaa9e845ab0e9632a3ba8a26.pas