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

http://fkn.ktu10.com/?q=node/8697
Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:
1 2 3 4 5
1 2 3 4 5

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