program Noname0; var b1, b2, b3,b4 : integer; begin WriteLn('Įveskite 3 skaičius'); readln (b1,b2,b3); if b2/b1=b3/b2 then WriteLn('Tai geometrinė progresija, kurios ketvirtas narys ' ,b3*b2/b1) else WriteLn('Tai nėra geometrinė progresija'); Readln; end. kur cia yra klaida nes man neisveda ketvirtojo nario normalaus kai tie skaiciai sudaro geometrine progresija