На вход программе подаётся последовательность целых чи- сел, каждое из которых не превосходит по модулю 10000 . Числа

Uses Crt;Const Pend = \'2100000000\';TypetR = ^tRs;tRs = Records : String;n : tR;end;VarPb,Pe,P : tR;Ch : Char;St : String;BeginPb:=nil;Writeln(\'Последовательность: \');RepeatSt:=\'\';RepeatRepeat Ch:=ReadKey Until Ch in [\'0\'..\'9\',\' \',\'-\'];Write(Ch);If Ch<>\' \' then St:=St+Ch;Until Ch=\' \';If St<>Pend thenBeginNew(P);P^.s:=St;P^.n:=nil;If Pb=nil then Pb:=P else Pb^.n:=P;Pe:=P;end;Until St=Pend;{}{...}{}end.