n flip (temp1, temp2);
: if temp1 ^. inf.pprak
write ('' 'S''-Сортувати'' A''-Додати'' E''-Редагувати'' D''-Видалити'' I''-Таблиця');
end; saveto;: text; (f, 'out.txt'); (f);: = getp (beg); temp <> nil dotemp ^. inf do ('?', grup, '? ', predm,'? ', otl,'? ', hor,'? ', ud,'? ', neud,'? ', plec,'? ', pprak,'? ');: = temp ^. next;; (f);; add;, p, er: integer;: string; (0);;
writeln ('Додавання:'); ('Група:');
readln (st); if length (st) <6 then for p: = 1 to 6-length (st) do st: = st + '';. grup: = st; ('Предмет:') ; (st); if length (st) <6 then for p: = 1 to 6-length (st) do st: = st + '';. predm: = st; ('5: '); (l ); newe.otl: = l; ('4: '); (l); newe.hor: = l; ('3:'); (l); newe.ud: = l; ('2: ' ); (l); newe.neud: = l; ('Пропущені лекцій:'); (l); newe.plec: = l; ('Пропущені практик:'); (l); newe.pprak: = l ; (tabl); ^. inf: = newe; ^. next: = nil; ^. prev: = right; ^. next: = tabl;: = tabl; (count); count <= 20 then lnum: = count ;;; edit;, p, er: integer;: string; (0);; ('Редагування:');
write ('Група:');
readln (st); if length (st) <6 then for p: = 1 to 6-length (st) do st: = st + ''; (cur) ^. inf.grup: = st; ('Предмет:'); (st); if length (st) <6 then for p: = 1 to 6-length (st) do st: = st + ''; (cur) ^. inf.predm: = st; ('5: '); (l); getp (cur) ^. inf.otl: = l; ('4:'); (l); getp (cur) ^. inf.hor: = l ; ('3: '); (l); getp (cur) ^. inf.ud: = l; ('2:'); (l); getp (cur) ^. inf.neud: = l; ( 'Пропущені лекцій:'); (l); getp (cur) ^. inf.plec: = l; ('...
