вопрос по паскалю/дэлфи

Помогите плз с программой . Написать на паскале или дэлфи- вводится в строку числа через пробел (значения от -50 до 50) по нажатию ентера пишет кол-во положительных цифр (>0). Все

 

Code:

program maxchislo;
uses crt;
label D3;
var
i, chislo, max : integer;
begin
D3:writeln('введите число');
readln(max);
for i:=2 to 10 do begin
readln(chislo);
if chislo>max then max:=chislo
end;
writeln('max=', max);
goto D3;
end.

вот это дерьмо вставь в компилятор

 

вводится строка. Ищутся все цифры в диапазоне от '0' до '9'(Обычный цикл и условие в нем). Считается их количество.

А отрицательных цифр не бывает, поэтому минус перед цифрой не учитываем.

 

во-во!
только такой код будет в 100 раз >

 

в 500 =))
ну, как бы твой вопрос некорректен, как отметил nerezus
просто делаешь циклом repeat .. until KeyPressed
потом выводишь 101 =)