при поступлении на пункт формирования каждый вояка припаса отвечает на вопрос

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 (sgt;=4) or (slt;=0) then writeln('таковой специальности нет');

end;

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

end.

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