сделал программку немножко посложнее :))
меняя стартовые значения переменных r и s можно построить таблицу любого размера с теми же правилами
var
r : integer := 3; // количество строк
s : integer := 5; // количество цифр в строке
k, d : integer;
begin
for var i := 1 to r do begin
for var j := 1 to s do begin
d += 1;
if d > s then d := 1;
write(d, ' ');
end;
writeln;
k += 1;
if k >= s then k := 0;
d := k;
end;
end.
A = true =>( A || (B && !C) )= true
var a: array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
if i mod 2 = 0 then a[i] := 1 else a[i] := 0;
writeln (a)
end.