Напишите программу, подсчитывающую количество оценок за контрольную, если в классе 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.