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

Question

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

Answer 1

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