Сформировать последовательность, состоящую не менее чем из n цифр,такую, что каждое двухзначное число, записываемое двумя соседними цифрами(в том порядке, в каком они написаны), должно делиться на 19 или 23. последовательность должна начинаться на заданную цифру. 'это если что в паскале)и цикл должен быть вайл или репит)
program 1qq;
var c,b,n,a:integer;
begin
readln(n);
readn(a);
b:=0;
c:=a;
while b<n do begin
b:=b+1;
if a mod 19 = 0 and a mod 23 = 0 then writeln(a);
a:=a+1;
end;
writeln('KONEC');
end.