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

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