Урок 13.1 Задача 8

Primary tabs

Submitted by naveang on Tue, 03/22/2022 - 11:02

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:

1 2 3 4 5
1 2 3 4 5

var a, b:integer;
begin
  for a:=1 to 2 do
    begin
      for b:=1 to 5 do
        write(b,' ');
      writeln();
    end;
  readln();
end.