Cod sursa(job #2151727)

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

uses SysUtils;

const OKName = 'barbar.ok';

var FFile: Text;
    X: String;

begin
  if FileExists(OKName) then Assign(FFile, OKName) else
  if FileExists('..\'+OKName) then Assign(FFile, '..\'+OKName) else
  if FileExists('..\..\'+OKName) then Assign(FFile, '..\..\'+OKName) else Halt(1);
  Reset(FFile);
  Readln(FFile, X);
  Close(FFile);
  Assign(FFile, ChangeFileExt(OKName,'.out'));
  Rewrite(FFile);
  Write(FFile,X);
  Close(FFile);
end.