{See programm paneb sappa 3 seisjat}
program sabake;
type seisjaviit=^seisjatyyp;
     seisjatyyp=record
                nimi: string;
                jargmine: seisjaViit;
                end;
var Algus, lopp, uus: seisjaviit;
    i, inimesi: integer;

begin
     inimesi:=3;
     writeln('See programm oskab moodustada saba 3st inimesest.');
     writeln('Sina aga peaksid ytlema, kes need inimesed on.');
{Paneme esimese}
     new(algus);
     algus^.jargmine:=nil;
     write('1. inimene: ');
     readln(algus^.nimi);
     lopp:=algus;
     for i:=2 to inimesi do
     begin
         new(uus);
         uus^.jargmine:=nil;
         write(i,'. inimene: ');
         readln(uus^.nimi);
         lopp^.jargmine:=uus;
         lopp:=uus;
     end;
     writeln('Ja n��d vaatame, kes seal sabas seisavad:');
     uus:=algus;
     for i:=1 to inimesi do
     begin
          writeln(i,'. inimene on ',uus^.nimi);
          uus:=uus^.jargmine;
     end;
     readln;
end.