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.