циклы, проверка ввода данных Опции

[-=АнЮтА=-]

Подскажите пожалуйста, как зациклить проверку ввода . Такие условия - вводятся с клавиатуры три числа - a,b и c. Необходимо проверить - если с = 0, то нужно ввести новое с, пока с не будет удовлетворять условию. И только в этом случае продолжать работу. Как можно это сделать?
Заранее спасибо.)

[volvo]

Если C - целое:

Readln(a);
Readln(b);
repeat
  Readln( c );
until c <> 0;

если вещественное (нельзя сравнивать с нулем напрямую, можно - с учетом погрешности):

Readln(a);
Readln(b);
repeat
  Readln( c );
until abs( c ) > eps; { <--- где eps, например, равно 0.00001 }