Напишите программу, которая выводит на экран трехзначные числа, кратные 3. Программа на PascalABC с массивом.

program massive;varI : integer;number : array [1..3] of integer;beginnumber[1] := 100;number[2] := 103;number[3] := 106;for I := 1 to 3 dobeginwriteln(number[I]);end;end.

program massive;varI : integer;number : array [1..3] of integer;beginnumber[1] := 100;number[2] := 103;number[3] := 106;for I := 1 to 3 dobeginwriteln(number[I]);end;end.

Program n1;var a: array[100..999] of integer;i: integer;beginfor i:=100 to 999 do a[i]:=i;for i:=100 to 999 do if a[i] mod 3=0 then write(a[i],' ');end.