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);