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