Loogika ja programmeerimine
Writeln('VÄLJAVTMINE. Järjekord on tühi.');
end;
'Q' : { Kui on valitud lõpetamine, siis }
begin
LV := JK.Viimane;
If JK.Esimene <> Nil Then { kontrollime, kas järjekord on tühi }
begin { ja kui ei ole, siis }
N := 0;
While LV <> Nil Do { loeme lülid kokku }
begin
N := N + 1;
LV := LV^.Eelmine;
end; { ja küsime lõpetamise kinnitust. }
Write('LPETAMINE.');
Writeln(' Järjekorda on jäänud veel ',N,' inimest.');
Write('Kas tahad testi lpetada [J/E]? ');
Readln(V);
V := UpCase(V);
If V = 'J' Then { Kui kinnitati lõpetamist, siis }
V := 'Q'; { lõpetamise tunnus püsti. }
end;
If V = 'Q' Then { Kui lõpetamine ja }
begin
While LV <> JK.Esimene Do { järjekorras on veel lülisid, }
begin
JK.Viimane := LV^.Eelmine;
annaabi.ee 
