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

Program Rom21;
uses crt;
type
pointzap=^zap;
zap=record
f:string[10];
oc1,oc2,oc3:integer;
p:pointzap;
end;
var
t,t1,r:pointzap;
f:string;

label
1,2,3;

BEGIN
clrscr;
new(r);
r^.p:=nil;
write('‚ўҐ¤ЁвҐ д ¬Ё«Ёо Ё«Ё end:');
readln(f);
if f='end' then
begin writeln ('‘⥪ ­Ґ ᮧ¤ ­');
dispose(r);
goto 1;
end
else begin r^.f:=f;
writeln('‚ўҐ¤ЁвҐ ®жҐ­ЄЁ: ');
write('1- п: ');readln(r^.oc1);
write('2- п: ');readln(r^.oc2);
write('3- п: ');readln(r^.oc3);
t:=r;
end;
2: t:=r;
writeln('‚ўҐ¤ЁвҐ д ¬Ё«Ёо Ё«Ё end:');
readln(f);
if f='end' then begin
writeln('Џ®«г祭­л© б⥪:');goto 3;end
else begin
new(r);
r^.p:=t;
r^.f:=f;
writeln('‚ўҐ¤ЁвҐ ®жҐ­ЄЁ: ');
write('1- п: ');readln(r^.oc1);
write('2- п: ');readln(r^.oc2);
write('3- п: ');readln(r^.oc3);
goto 2;
3: t:=r;
while t<> nil do begin
writeln(t^.f,'-',' ',t^.oc1,' ',t^.oc2,' ',t^.oc3);
t1:=t^.p;t:=t1;end;
readln;
end;
1: end.