Вложение циклов в разветвления и наоборот

Реальная программа на Паскале представляет собой сложную мозаику из циклических и разветвляющихся частей, вложенных друг в друга. Мы уже видели в 5.7, как в оператор case был вложен оператор for. В свою очередь в оператор цикла могут быть вложены другие операторы, как в 7.3, и так до бесконечности.

Для тренировки определите, что напечатает следующий фрагмент:

for i:=1 to 5 do begin

a:=9;

if i*i = a then for k:=5 to 8 do Write(k)

else WriteLn(1997);

end {for}

Ответ: