PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018
Внимание! Если программа не работает, обновите версию!
procedure Квадрат(a: real; var P, S: real);
begin
(P, S) := (4 * a, a * a)
end;
begin
var сторона := ReadReal('Введите сторону квадрата:');
var периметр, площадь: real;
Квадрат(сторона, периметр, площадь);
Print('Периметр равен', периметр, 'площадь равна', площадь)
end.