Паскаль
Составьте программу, которая заполняет одномерный массив двадцатью первыми натуральными числами, кратными 5 или 7. Полученный массив вывести на экран.

uses crt;var counter:integer;numbers:array [0..19] of integer;arrayCounter:integer;begincounter := 0;arrayCounter := 0;repeatif(counter mod 5 = 0) or (counter mod 7 = 0) thenbeginnumbers[arrayCounter] := counter;Inc(arrayCounter);end;Inc(counter);until arrayCounter = 20;for var i := 0 to 19 do writeln(numbers[i]);end.