FPS reikia pagalbos

program seka;
var a, b : integer
s: boolean;
begin
read(a); read(b);
s:=true;
while s and (b<>0) do 
    begin
    s:=s and (....)
   a:=b;
    read(b)
    end;
if s then write ('TAIP')
else write ('NE')
end.

Reikia irasyti i skliaustus logini reiskini, kad butu ispausdintas zodis taip, kai visi sekos skaiciai vienodi.

Nelabai suprantu, kas čia per kodas. Kodėl loginių operacijų vietoje priskyrimas s:=s?

Kadangi nori, kad išspausdintų taip, tai reikia, kad b taptų 0, nes s pas tave visada true.

Jei pascal leidžia šitaip daryti, tai rašyk b:=0, nors programa čia nelogiška arba aš nesuprantu, ką ji daro.

Tikrai nesupratau ko tau ištikrųjų reikia, nes tavo kodas neturi jokios logikos... Bet mano spėjimu tau reikia kažko panašaus į čia?

program programa;
var a, b:integer;
   s:boolean;
begin
s := true;
readln(b);
a := b;
while b <> 0 do
   begin
   readln(b);
   if (b <> a) and (b <> 0) then s := false;
   end;
if s = true then writeln('Taip') else writeln('Ne');
readln;
end.

Čia vedi skaičius tol kol neįvedi 0, įvedus 0 parašoma ar visi įvesti skaičiai yra vienodi, ar ne.