Begin1. Дана сторона квадрата a. Найти его периметр P=4·a.
var a, p: real;
begin
  write('Введите длину стороны квадрата ->');
  readln(a);
  p:=4*a;
  writeln('Периметр квадрата = ', p:6:2);
end.