Отбор в команду по баскетболу
Если рост ≥ 170 см из 50 человек. Вывести количество претендентов
Задачу решить с помощью Паскаля

Program n1;var a,i,k: integer;begink:=0;for i:=1 to 50 dobeginwrite('введите рост: ');readln(a);if a>=170 then k:=k+1;end;writeln('количество: ',k);end.