Дан отрывок программки.Найти чему будет одинаково значение переменных в течение цикла

Дан отрывок программки.Найти чему будет равно значение переменных в течение цикла и после его исполненья если с клавиатуры ввели число C = -100
A:=500;
I:=0;
readln(c);
while clt;0 do
begin
A:=A+C;
C:=C+10;
I:=I + 1;
writeln(I,C,A);
end;
Writeln(' I = ',I, ' C = ',C,' A = ',A);