[Pascal] Pewna ilość zestawów danych

[inewi5]

Witam

Uczę się "programować" w Pascalu i rozwiązuje zadania ze strony pl.spoj.pl

Mam jednak pewien problem - w treści niektórych z nich znajduję się informacją, że na wejściu podana zostania pewna ilośc zestawów danych. Aby rozwiązać takie zadanie piszę w programię pętle repeat until eof, jednak SPOJ wywala błąd (NZEC).

Np w programie Nierówności trójkąta

program KC0003;var  a, b, c: real;  z4 : byte;beginrepeat begin read(a, b, c); if a+b>c then if a+c>b      then if b+c>a then z4:=1 else z4:=0      else z4:=0 else z4:=0; writeln(z4);end;until eofend.

Co w tym programie należy poprawić aby nie wywalało błędu?