7 ВАРИАНТ
Как считать?

1) из повседневной жизни школьника
каждую неделю, по будним дня, нужно идти в школу. (цикл на каждый день с исключением выходных)
По литературе задали выучить стих. На уроке проходятся циклом по всем ученикам и говорят рассказывать этот стих и потом оценивают

2) И днем и ночью кот ученый все ходит по цепи кругом
Колобок. Я от бабушки ушел, я от дедушки ушел, я от зайца ушел.. (цикл по обьектам)

3) физика. лабораторная, поставить некий эксперемент несколько раз с разными параметрами. Параметры меняются, действия одни и те же
Нахождение корней уравнения путем половинного деления (цикл повторяется пока не достигается определенная точность ответа)

Program yravnenie;

Var
 a,b,c,D,x1,x2,p,q:Real;
Begin
 Repeat
  Write('a= ');
  Readln(a);
  if a=0 then writeln('Error: a=0. Enter another value');
 Until a<>0;
 Write('b= ');
 Readln(b);
 Write('c= ');
 Readln(c);
 p:=b/a;
 q:=c/a;
 D:=Sqr(p/2)-q;
 If D>0 then
  begin
   Writeln('x1 = ',-p/2-Sqrt(D):0:5);
   Writeln('x2 = ',-p/2+Sqrt(D):0:5);
  end
 else
 If D=0 then
  Writeln('x1 = x2 = ',-p/2:0:5)
 else
  begin
   Writeln('x1 = ',-p/2:0:5,'-i*',Sqrt(-D):0:5);
   Writeln('x2 = ',-p/2:0:5,'+i*',Sqrt(-D):0:5);
  end;
 Readln;
End.