Решение задачи №8 из главы 13.1
Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:
1 2 3 4 5
1 2 3 4 5
var a, b: integer;
begin
for a := 1 to 5 do // цикл по строкам
write(a,' ');
begin
writeln(); // переносим строку
for b := 1 to 5 do // цикл по строкам
write(b,' ');
end;
readln();
end.