jeigu gerai supratau tai kodas atrodo taip:

program UzdavinysNr1;
var a, b, n : longint;
begin
  b := 1;
  WriteLn('Programa apskaiciuos tik tu ivestu skaiciu sandauga, kurie bus');
  WriteLn('didesni uz jusu pasirinkta skaiciu n. Skaiciu sekai uzbaigti');
  WriteLn('iveskite nuli.');
  WriteLn('');
  WriteLn('Iveskite n reiksme: ');
  Writeln('');
  Readln (n);
  Writeln('');
  WriteLn('Jusu pasirinkta n reiksme yra: ', n:2);
  Writeln('');
  WriteLn('Iveskite sekos skaicius');
  WriteLn('');
  Readln (a);
  while a <> 0 do begin
  if a > n then b := a * b;
  Readln (a);
  end;
  WriteLn('Skaiciu sekos sandauga yra: ', b:2);
end.

bet pagal sita algoritma gaunasi tokia klaida, jeigu sekos skaiciai bus 
lygus arba mazesni uz n skaiciu, tai tada sandauga bus lygi 1. Kaip 
isspresti problema?

"Dzytaras" <spam@freemail.lt> wrote in message 
news:g0d1io$2u8$1@trimpas.omnitel.net...
> pirmas:
>
> prilygini b=1
> ivedi n
> ivedi pirma sekos nari a
>
> darai cikla kad while a <> 0 do begin
> if a>n then b=a*b
> readln(a) ce ivedam antra nari.. ir tt..
> end;
>
> nu ir viskas
> writeln(b)
>
> END. :)
>
> jei da miegas neims paziuresiu tai ir antra pazesiu
>
>
> "Jomajo" <no@no.no> wrote in message 
> news:g0cs69$uvv$1@trimpas.omnitel.net...
>> reiktu isspresti tokias uzduotis:
>>
>> 1. Parasykite algoritma klaviatura renkamos skaiciu sekos nariu, didesniu 
>> uz n, sandaugai suskaiciuoti. Sekos paskutinysis narys-nulis.
>>
>> 2. Sveikuju skaiciu seka surenkama klaviatura. Paskutinysis sekos narys - 
>> nulis. Parasykite algoritma sekos nariu zenklams pakeisti priesingais, 
>> pradinei bei naujai gautai sekoms spausdinti.
>>
>
>
>