Составить программу паскаля, дана сторона квадрата найти его периметр

Составим программу на языке программирования Паскаль, которая будет вычислять периметр квадрата, зная одну сторону.

programm perimetrkvadrata;

var a, p: integer;

begin

writeln ('Введите длину стороны квадрата, для вычисления его периметра');

readln (a);

p: = 4 * a;

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

end.