Surūšiuoji elementus;
pasižiūri pirmo ir antro santykį;
tikrini santykius tarp antro ir trečio, trečio ir ... priešpaskutinio ir 
paskutinio;
jei bet kuris santykis neatitinka santykio tarp pirmo ir antro - pranešimas, 
kad nesigauna, ir halt.

"Blenderis" <belenderis@bulves.net> wrote in message 
news:gsp4mm$t0g$3@trimpas.omnitel.net...
> Sveiki, gal galetumete truputeli padet reikia su Pascal parasyti tokia 
> programele - Pradiniai duomenys: n naturaliųjų skaičių. Parašykite 
> programą, nustatančia
> ar galima iš duotųjų skaičių sudaryti geometrinę progresiją.
>
> Labai dekui uz bet kokia pagalba.