напишите программу вычисления периметра квадрата с целыми числами integer

var a:integer;beginwriteln('введите сторону квадрата');readln (a);writeln('периметр квадрата = ', A*4);end.