program SquareDemo2;

uses
 Forms;

var
 UserInput: Real;

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

 Readln;
end.
