Составьте программу на языке паскаль. Абитуриенты сдают три экзамена если они…

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.