Составить программу которая вводит с клавиатуры длину стороны квадрата вещественного типа и выводит на экран дисплея площадь квадрата. процедура P1 вводит с клавиатуры длину стороны квадрата; функция F1 вычисляет площадь квадрата; Процедура P2 выводит на экран результат. процедура P1 и функции F1 - встроенный в программу процедура P2 - записывается как отдельный модуль подключаемый к основной программе. в паскале

Предыдущий
вопрос Следующий
вопрос

program SquareArea;

uses P2;

var
sideLength: real;

begin
P1(sideLength);
P2(F1(sideLength));
end.

unit P2;

interface

procedure P2(area: real);

implementation

procedure P2(area: real);
begin
writeln('Area of the square: ', area:0:2);
end;

end.

procedure P1(var sideLength: real);
begin
writeln('Enter the length of the side of the square: ');
readln(sideLength);
end;

function F1(sideLength: real): real;
begin
F1 := sideLength * sideLength;
end;