Составьте блок схему алгоритма и программу подсчета количества чисел кратныx 7. Числа вводятся с клавиатуры (признак окончания ввода число "0")

Язык паскаль
желательно сделать на листочке и фотку кинуть ;)

var a,k:integer;begina:=-1;k:=-1;while a<>0 do beginread(a);if a mod 7 = 0 then k+=1;end;writeln(k);end.