турбо паскаль : циклы

[ARAGON]

1.Вывести своё имя на экран 7 раз
2.Вычислить остаток от деления двух чисел нацело, используя операцию вычитания

[Alt]

каким циклом организовывать, while, repeat-until, for ?

[Google2010]

1

var i:integer;
begin
for i:=1 to 7 do
writeln('Vasya');
readln;
end.

2

var a,b,i:integer;
begin
readln(a);
readln(b);
i:=0;
while a>=0 do begin
a:=a-b;
inc(i);
end;
writeln(i-1);
readln;
end.

[ARAGON]

цикл любой

[ARAGON]

гугл10 спасибо