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

Program name; //имя программы uses crt; //запуск программы в консольном режиме необязательно var      a : integer;   b : integer;   i : integer;   c : integer; begin //начало программы  write('введите 1 число: ');   readln(a); //ввод значения первого числа  c : = b-a-1;   write('введите 2 число: ');   readln(b); //ввод значения второго числа  writeln(a, ' ' , b); //вывод двух чисел   writeln(a, ' ' ,a*a,' ' , a*a*a); // вывод 1 числа, квадрата, куба  for i : = 1 to b-a-1 do    begin    a : = a + 1;     writeln(a, ' ',a*a, ' ', a*a*a); // вывод всех чисел от a до b  end;               writeln(b, ' ' ,b*b,' ' , b*b*b); // вывод 2 числа, квадрата, куба  readkey;     end. //конец программы

Var a,b,c: integer; x,y,z: string; begin writeln('введите стороны треугольника'); readln(a,b,c); x: ='равнобедренный'; y: ='равносторонний'; z: ='разносторонний'; begin if (c=b) and (a< > c) then writeln('треугольник',' ',x); if (a=c) and (a< > b) then writeln('треугольник',' ',x); if (a=b) and (a< > c) then writeln('треугольник',' ',x); if (a=b) and (a=c) and (b=c) then writeln('треугольник',' ',y); if (a< > b) and (a< > c) and (b< > c) then writeln('треугольник',' ',z); end; readln end.