Составить программу в Паскале. Тестируется группа из n человек. Каждый вводит 1,если изучает английский,2-немецкий,3-французский,0-никакой. Определить сколько человек в каждой языковой группе. С операторами for и case.

var n,i,otv,l,m,h,k: integer; begin writeln ('сколько человек в группе'); read (n); for i:=1 to n do begin writeln ('какой язык ты изучаешь: 1-англ,2-нем,3-франц,0-никакой'); read (otv); case otv of 0: l:=l+1; 1: h:=h+1; 2: k:=k+1; 3: m:=m+1; end; end; writeln ('английский язык изучает',h,'человек'); writeln ('немецкий язык изучает',k,'человек'); writeln ('французский язык изучает',m,'человек'); writeln (l,'человек не изучает никакой язык'); end.