Program bbb
var
N,k:integer;
begin
writeln('введите число N');
readln(N);
k=0;
for 1 to N do
begin;
if k mod 5=0 then
k:=k+1;
writeln(k);
end;
end. Попробуй так должно получится, если не получается добавь переменную i в разделе var и вставь сюда (for i=1 to N do...)