Помогите пожалуйста! помогите написать программу на языке паскаль

А числа как?

Ну ладно.. .
**********************************
program prog;
var
i,k,m,n:byte;
a:array [1..30] of byte;
begin
write('Введите размер последовательности: ');
readln(n);
writeln('Введите последовательность чисел: ');
for i:=1 to n do
readln(a);
writeln('Введите число k:');
readln(k);
write('В последовательности ');
for i:=1 to n do
write(a,' ');
writeln;
m:=0;
for i:=1 to n do
if a=0
then
break
else
if a

Доброго времени суток.

Корректно ставьте задачу и вероятность получения правильного ответа сильно возрастает.

Думаю так, что если набор уже дан, то его вводить не надо. Хотя, он может быть дан на бумажке. Но "это не серьезно! " (с) к/ф Операция Ы, в век-то компьютерных технологий. Поэтому будем считать, что дан файл и файл текстовый и на каждой строчке новое число. А вот значение К пусть введет юзер. Тогда программка может быть такой.

program Prog;
var
F: Text;
n,m,k: Integer;
begin
Assign(F, '_Data.txt');
Reset(F);
N := 0;
Write('Введиете число К : ');
ReadLn(K);
while not Eof(F) do begin {а вдруг ноль забыли ввести, значит до конца файла}
ReadLn(F, M); {читаем очередное число}
if M = 0 then Break; {нет, не забыли - выйдем из цикла}
if M < K then N := N + 1;
end;
Close(F);
WriteLn('Число чисел, меньших ',K, ' равно ', N);

ReadLn;
end.

Удачи!

набор-то где?
в файле или вводим числа по порядку пока не введем 0?

студент.... понимаю))