По результатам приемных испытаний из трёх

[Artmen]

По результатам приемных испытаний из трёх экзаменов определить студентов не прошедших испытание, если проходной балл равен 13.

[Stilet]

var fio,s:string; a,sm,i:integer; c:char;
begin
 repeat 
  write('ФИО студня: '); readln(fio);sm:=0;
  for i:=1 to 3 do begin
   write('Экзамен №',i,'. Оценка: '); readln(a); sm:=sm+a;
  end;
  if sm<13 then s:=s+fio+#13#10;
  write('Еще? Y/N'); readln(c);
 until c='N';
 write('Хвостатые гакусейчики:',#13#10,s); readln;
end.