Program dyrektywy;
uses crt;
var liczba:integer;

begin
  writeln('Sprawdzimy twoj kompilator ...');
  {$IFDEF WINDOWS}
  writeln('Pracujesz pod WINDOWS');
  {$ELSE}
  writeln('Pracujesz pod DOS');
  {$ENDIF}

  writeln('Podaj liczbe:');
  {$I-} readln(liczba); {$I+}
  if ioresult=0
  then
    writeln('Twoja liczba to:',liczba)
  else
    begin
      readln();
      writeln('Bˆlad! To nie byˆa liczba!');
    end;
  readln();
end.