Пожалуйста помогите срочно
Что дает эта програма
Program pr1;
Var c,k:integer;
Begin
K:=0;
For c:=1 to 99 do
If c mod 7=0 then k:=k+1; write on ('k=',k)
End.