Составьте блок-схему и программу следующей . бригада из семи рабочих заработала м р.деньги были поделены поровну. найдите заработок каждого рабочего.

Var n,M:integer; zar:real;
begin
write('ведите заработок бригады');
Read(M);
n:=7;
zar:=M/n;
write(zar);end.