Составить программу

[healton]

помогите решить задачу на turbo pascal:найдите минимальное значение из чисел кратных трем среди последовательности вводимых чисел;

Остановить обработку при вводе заказанного количества чисел

Тип обработки данных : целые

[vovk]

Знаки препинания=великая сила. Сами прочитайте свой вопрос))

если правильно понял

program halyava;
uses CRT;
var
i,m,x,y:integer;
begin
m:=maxint;
clrscr;
writeln('vvedite kolichestvo chisel posledovstelnosti');
readln(x);
for i:=1 to x do
begin
clrscr;
writeln('vvedite chislo N ',i,' iz ',x);
readln(y);
if (y <> 0 )
and ((y mod 3) = 0)
and (m > y) then
m:=y;
end;
clrscr;
if m = maxint then
writeln('chislo kratnoe 3 otsutstvuet') else
writeln('minimalnoe chislo kratnoe 3 =  ',m);
readln
end.