Написать программу,проверяющую,принадлежит ли число отрезку [3; 11]

вы не указали как хранятся данные о студентах и как осуществляется ввод. попробуйте так, хотя я уже давно в паскале не писала.

program pr1; procedure createmass(var str: mass; n: integer); var i: integer; begin  for i: =1 to n do begin  write('введите имя учащегося: ');   readln(str[i])  endend; procedure searchn (str: mass; n: integer); var i, j, s1, s2: integer;       b: boolean; begin  b: =false;   j: =1;   while (j < = (n-1)) and (not b) do  begin      for i: =j+1 to n do      begin          if str[j]=str[i] then          begin              b: =true;               s1: =i;               s2: =j          end      end;       j: =j+1  end;   if (not b) then writeln('нет двух студентов с одинаковыми именами.') else  writeln('студенты с одинаковыми именами - ',str[s1], ' находятся в массиве под номерами ', s1, ' и ', s2, '.')end; type mass = array [1..n] of string; const n = 10; var str: mass; begin  createmass(str, n);   searchn(str, n)end.