01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / MOD / UKAZ1

Program Stack;{Їа®Ја ¬¬  ᮧ¤ ­Ёп ¤Ё­ ¬ЁзҐбЄ®© бЇЁбЄ®ў®© бвагЄвгал 
               вЁЇ  "б⥪", ᮤҐа¦. ў Є ¦¤®© § ЇЁбЁ д ¬Ё«ЁЁ Ё ¤ вл
               ஦¤Ґ­Ёп бв㤥­в®ў, а бЇҐз вЄЁ нв®Ј® бЇЁбЄ , г¤ «Ґ­ЁҐ
               Ё§ бЇЁбЄ  бв㤥­в®ў § Їа®иҐ­­®Ј® Ј®¤  ஦¤Ґ­Ёп,
               а бЇҐз вЄЁ १г«мвЁаго饣® бЇЁбЄ }
Type
    Pointzap=^zap;
    Zap=Record
        F:string[10];
        y:integer;
        p:pointzap;
    end;
var
   R, T, T1:pointzap;
   fam:string[10];
   year:integer;
Label 1, 2, 3; 

Begin
   New(r);
   R^.p:=nil;
   writeln('‚ўҐ¤ЁвҐ д ¬Ё«Ёо Ё«Ё "end"');
   readln(fam);
   if fam='end' then
    begin
    writeln('б⥪ ­Ґ ᮧ¤ ­');
    Dispose(r);
    goto 1;
    end
   else
    begin 
       R^.f:=fam;
       Writeln('‚ўҐ¤ЁвҐ ¤ вг ஦¤Ґ­Ёп');
       readln(r^.y);
       t:=r;
    end;
2: t:=r;
   Writeln('‚ўҐ¤ЁвҐ д ¬Ё«Ёо Ё«Ё "end"');
   readln(fam);
   if fam='end' then
     begin
        writeln('ᮧ¤ ­ЁҐ б⥪  § ўҐа襭®');
        Goto 3
     end
   else
     Begin
       new(r);
       r^.p:=t;
       r^.f:=fam;
       Writeln('ўўҐ¤ЁвҐ ¤ вг');
       readln(r^.y);
       goto 2
     end;
3: t:=r;
   While t<>nil do
    begin
     writeln(t^.f, ' ' , t^.y);
     t1:=t^.p; t:=t1;
        end;
     WriteLn('‚ўҐ¤ЁвҐ ¤ вг ¤«п г¤ «Ґ­Ёп ');
     ReadLn(year);
     t:=r;
     t1:=r;
     While t<> NIL Do
     begin
     if T^.Y<>Year then
     begin
     if t=r then t:=t^.p;
     if t<>r then begin
     t:=t^.p;
     t1:=t1^.p
     end;
     end;
     if t^.y=year then
     begin
     if t=r then r:=r^.p;
     t:=r;
     t1:=r;
     end;

     if t<>r then begin
     t:=t^.p;
     dispose(t^.p);
     t1^.p:=t;
     end;
     end;
    Writeln('ЏаҐ®Ўа §. б⥪ ');t:=r;
     while t<>NIL do
     begin
     Writeln(t^.f,' ', t^.y);t1:=t^.p;t:=t1;
    end;
1: end.