При поступлении на пункт формирования каждый воин запаса отвечает на вопрос о своей военной специальности написать программу подсчитывающую количество механиков (1) заряжающих (2) наводчиков (3) пусть за день пункт пропускает n человек плзз !

Var

s1,s2,s3,n,i,s:integer;

Begin

writeln('Введите кол-во человек');

readln(n);

for i:=1 to n do begin

writeln('введите специальность: механик-1, заряжающий-2, наводчик-3');

readln(s);

if s=1 then s1:=s1+1;

if s=2 then s2:=s2+1;

if s=3 then s3:=s3+1;

if (s>=4) or (s<=0) then writeln('такой специальности нет');

end;

writeln('механиков-',s1,' заряжающих-',s2,' наводчиков-',s3);

end.

Как-то так это на Паскале. На других не могу увы(