Zahl Qquadrieren über Konsole mit MessageBox

[Shaddar]

So ich krieg jetzt schon ma ne messagebox. die kommt jetzt.
hab da aber nur nen text.

bräuchte das so, dass man ne Zahl eingibt und denn auf enter drückt und die messagebox mit dem ergebnis kommt.

mein bisheriger quelltext...

program Versuch1;

{$APPTYPE CONSOLE}

uses
SysUtils,windows;
var
x:integer;
begin
{ TODO -oUser -cConsole Main : Hier Code einfügen }
writeLn('hallo');
readLn;
MessageBox(0,'Ich bin eine MessageBox','Ergebnis',MB_OK or MB_ICONINFORMATION);
end.