var
i: integer;
begin
for i:=1 to 7 do
writeln('in a loop');
end.
это очень легко зачем такие вопросы задавать..
