Написать программу в Pascal по циклам:
Ежедневно ученик делает в диктанте разное кол-во ошибок.За сколько дней кол-во ошибок достигнет числа q?(Написать программу с циклом while)

program gt;var q,k,a,s:integer;beginwriteln('Задайте q');readln(q);k:=-1;s:=0;while q>s dobegink:=k+1;read(a);s:=s+a;end;writeln(k);end.