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

program PerimetrKv;var a,P: integer;beginwriteln('Vvedite dlinu storoni kvadrata');readln(a);P:=4*a;writeln('Perimetr kvadrata P= ', P);readln(P);end.Единственное - программу написала на Турбо Паскале. Думаю, что от ABC не должно сильно отличаться.