Сколько раз будет выполнен этот цикл?
i:=6;
while i<5 do begin
writeln('Привет!');
i:=i+1;
end;