fefemf10

var

i: integer;

begin

for i:=1 to 7 do

writeln('in a loop');

end.

это очень легко зачем такие вопросы задавать..