program SquareDemo;

uses
 Forms;

var
 UserInput, Answer: Real;

procedure Square(Number: Real; var Result: Real);
begin
 Result := Number * Number;
end;

begin
 Writeln('Wprowad liczb, ktr chcesz podnie do kwadratu: ');
 Readln(UserInput);
 Square(UserInput, Answer);
 Writeln(UserInput, ' do kwadratu to: ', Answer);

 Readln;
end.