Задача 2 Урок 12.2

http://fkn.ktu10.com/?q=node/8811
У вас есть программа, использующая цикл while:

var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;

readln();
end.

Перепишите её с помощью цикла repeat/until
Перепишите её с помощью цикла for

var
i: integer;
begin
i:=1;
repeat
write(i, ' ');
i:=i+5;
until i>=100;
end.