Программа на языке pascal. компьютер в первую секунду печатает на экране число 1, во вторую – число 12, в третью – число 23. то есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. в какую секунду впервые появится число, делящееся на 2009?
program n1cel;
var
a,c:integer;
begin
a:=1;
c:=1;
while с mod 2009<>0 do
begin
a:=a+1;
c:=c+11;
end;
writeln ('через ', a, ' секунд');
end.