// PascalABC.NET
begin
var a := ReadReal('a =');
Println('Длина стороны квадрата =', a);
Println('Периметр квадрата =', 4 * a);
Print('Площадь квадрата =', a * a)
end.
// PascalABC.NET
begin
var a := ReadReal('a =');
Println('Длина стороны квадрата =', a);
Println('Периметр квадрата =', 4 * a);
Print('Площадь квадрата =', a * a)
end.