Информатика 7 класс.Циклы. С помощью цикла N раз вывести четные числа до 50

1. Примерно вот так почему-то учат писать в школе...

program Schoolar;

var
i,j,n:integer;

begin
Write('n = '); Readln(n);
for i:=1 to n do begin
    for j:=1 to 50 do
      if j mod 2 = 0 then Write(j,' ');
    Writeln
    end
end.

Пример
n = 3
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50

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

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
Loop ReadInteger('n =') do Range(2,50,2).Println
end.

Результат
n = 3
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50