Cod sursa(job #2151720)

Utilizator KuubiRafi Efrenyi Kuubi Data 4 martie 2018 20:28:26
Problema Barbar Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
Raporteaza aceasta sursa 
program Halter;

uses SysUtils;

const OKName = 'barbar.ok';

begin
  Randomize;
  if FileExists(OKName) then Halt(1);
  if FileExists('..\'+OKName) then Halt(2);
  if FileExists('..\..\'+OKName) then Halt(3);
  Halt(4);
end.