Дана непустая последовательность естественных чисел, за которой следует 0. Вывести на

program raf105;

var

 a: array[1..100] of integer;

 i,n,c: integer;

 x: boolean;

begin

writeln('Вводите числа по очереди');

writeln('Чтоб закончить введите 0');

repeat

 x:= True;

 readln(n);

 for i:=2 to n-1 do

   if (n mod i = 0) and (n lt;gt; 0)

     then x:= False;

 if x and (n lt;gt; 0)

   then begin

     c:= c+1;

     a[c]:= n;

   end;

until n = 0;

write('Обыкновенные числа: ');

for i:=1 to c do

 write(a[i],' ');

end.

PascalABC 3.4.2