Question

Напишите программу,которая вычисляет периметр квадрата,стороны которого вводятся с клавиатуры (Pascal)​

Answer 1

program PerimeterOfSquare;

var

a, p: integer;

writeln('Введите длину стороны квадрата');

readln(a);

p := 4 * a;

writeln('Периметр квадрата со стороной ', a, ' равен ', p);

end.