tiksliau:
 if b < -n then WriteLn('Skaiciu sekos sandauga yra: ', b:2)
            else WriteLn('Skaiciu sekos sandauga yra: ', b:2);

tik problema tame kad jeigu neivedi skaiciu sekos, o sakykim iskarto vedi 
nuli, tada raso kad sekos sandauga yra 1

"Jomajo" <no@no.no> wrote in message 
news:g0em2t$nal$1@trimpas.omnitel.net...
>o jeigu padarom taip:
>
> if b < n then WriteLn('Ivesti skaiciai yra mazesni arba lygus n')
>           else WriteLn('Skaiciu sekos sandauga yra: ', b:2);
>
> tada atrodo viskas kaip ir gerai
>
> "polaris" <dtamonis_nospam@takas.lt> wrote in message 
> news:g0e6gg$tkl$1@trimpas.omnitel.net...
> Jei n bus <1, tai šitas variantas bus netinkamas, kai visi skaičiai bus
> pvz. vienetai. Siūlyčiau įsivesti kintamąjį, kuris skaičiuotų, kiek
> įvesta skaičių >n, o va tada, jei jų nėra, rašyti ten ką nors.
>
> Dzytaras wrote:
>
>> o tai kas ce turi gautis? 0? "nieko"?
>>
>> gale gali darasyt if b=1 then writeln('ivesti skaiciai mazesni arba lygus 
>> n')
>>                                   else writeln('sandauga:',b);
>
>
>
>
>