program SquareDemo3;

uses
 Forms;

var
 UserInput: Real;

function Square(Number: Real): Real;
begin
 Square := Number * Number;
end;

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

 Readln;
end.