Составьте циклический алгоритм для какой-либо пословицы

var a, b, c, i:integer;
begin
read (a,b);
for i:=1 to 7 do
 c:=a-b;
write (c,' ');
end.
7 раз отмерь, один раз отрежь.

P.S. Надеюсь на благодарность и лучший ответ.