Объяснение:
var a,i,s:integer;
begin write('введите n - '); readln(n);
for i:= 1 to n do begin
write('введите a - ');readln(a);
if a < 3 then s := s + 1;
end;
write('s = ',s);
end.
