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

Primary tabs

Submitted by Levvv on Mon, 01/03/2022 - 23:59

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

var a,i: integer;
begin
a:=1;
while(a<=2) do
begin
    for i:=1 to 5 do
        write(i,' ');
a:=a+1;
writeln();
end;
end.

var a,i: integer;
begin
a:=1;
repeat
    for i:=1 to 5 do
        write(i,' ');
a:=a+1;
writeln();
until(a>2);
end.