//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadReal('Введите сторону квадрата:');
write('S=',a*a,'; P=',a*4);
end.
a = float(input("Чему равна сторона квадрата? "))
print("P =",a*4,"| S =",a**2)
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadReal('Введите сторону квадрата:');
write('S=',a*a,'; P=',a*4);
end.
a = float(input("Чему равна сторона квадрата? "))
print("P =",a*4,"| S =",a**2)