program Reraise;

uses
 Forms, Dialogs, SysUtils;

{$R *.RES}

var
 X: Integer;

begin
 try
  Writeln('Wprowad liczb:');
  Readln(X);
  X := 100 div X;
  Writeln('Wynik: ',X);
 except
  MessageDlg('Bd - zadzwo pod numer 123-345678', mtError, [mbOK], 0);
  Raise;
 end;
end.