Zahl Qquadrieren über Konsole mit MessageBox

[DeddyH]

Meine Version ist etwas ausführlicher:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

var Zahl: string;
    Wert: integer;
    Err: integer;
begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  writeln('Bitte eine Zahl eingeben.');
  readln(Zahl);
  {$R-}
  Val(Zahl,Wert,Err);
  {$R+}   
  if Err > 0 then
    MessageBox(0,'Eine Zahl, Du Hirni!','Knallkopp',MB_OK or MB_ICONERROR)
  else
    begin
      Wert := Wert * Wert;
      MessageBox(0,PChar(Format('Das Quadrat ist %d.',[Wert])),'Information',MB_OK or MB_ICONINFORMATION);
    end;
end.