Напишите программу,подсчитывающую количество оценок за контрольную,если в классе 20 учеников)(в Паскале)

const   students = 20; var   marks: byte := students; begin   writeln('Все пришли?');   var c: string;   readln(c);   if not (c in ['Yes', '1', 'True', 'Да']) then   begin     writeln('Сколько не пришло?');     var b: byte;     readln(b);     marks := (marks > b ? marks - b : 0);    end;   writeln(marks, ' оценок'); end.