Составьте программу на языке паскаль.абитуриенты три экзамена если они набирают не менее 13 ,то поступают на дневное отделение,от 10 до 12 на вечернее,от 8 до 9 на заочное,менее 8 отказано от приема на учебу.

  program abitura;

uses crt;

var n,i,r,n1,n2,n3: integer;

begin

      clrscr;

      write('введите количество абитуриентов: ');  

      readln(n);

      for i: =1 to n do

            begin

                  writeln('абитуриент номер ' ,i  );  

                  write('введите оценку за первый экзамен');  

                  readln(n1);

                  write('введите оценку за второй экзамен');  

                  readln(n2);

                  write('введите оценку за третий экзамен');  

                    readln(n3);

                  r: =n1+n2+n3;

                  if (r> =13) then writeln('вы зачислены на дневное отделение ');  

                  if (r> 10) and (r< 12)  then writeln('вы зачислены на вечернее отделение ');  

                  if (r> =8) and (r< =9)  then writeln('вы зачислены на заочное отделение ');

                  if   (r< 8)  then writeln('вам отказанно в зачислении ! ');              

            end;    

      readkey;  

  end.

информатика

блок схемы

рисунки

файлы

Объяснение:

вроде так