Сделайте 20 (извините, что немного в плохом качестве)​

ваня – п 

петя – к 

саша – в 

коля – с

Если q=p, то оба указателя ссылаются  на одно и то же место в памяти, т.е. значения p^ и q^ всегда будут одинаковы. после p^=5 оба указателя будут ссылаться на 5. q^: =p^+1 к тому, что cсылка будет на 6, поэтому в первом if условие ложно и выполняется ветка else и оба указателя будут ссылаться на 10.во втором if условие истинно, поэтому выполняется ветка then. в ней присваивание p: =q ничего не меняет, поскольку оба указателя и так уже указывают на одно и то же место в памяти. а после q^: =20 в это место будет записана константа 20, поэтому при выводе p^ мы получаем значение 20.ответ: 20

Type   tfio=record       fam,im,otch: string   end; var   f: tfio;   s: string;   g: text;   i,n: integer; begin   assign(g,'iof.txt'); rewrite(g);   write('количество сотрудников: '); readln(n);   for i: =1 to n do   begin       with f do       begin           { сформировать запись типа f }           writeln('*** сотрудник № ',i,' ***');           writeln('фамилия: '); readln(s); fam: =s;           writeln('имя: '); readln(s); im: =s;           writeln('отчество: '); readln(s); otch: =s;           { занести данные в файл }           writeln(g,im,' ',otch,' ',fam)       end   end;   close(g) end.