8.11 напиши программу которая принимает с клавиатуры 2 числа 1 количество учеников в классе, 2 количество стульев в классе программа проверит соответствие между двумя соответствиями и выведет на экран соответствующие цифры например 35, 39 разделить на экран проводит 4 лишних.
type
cl=class
public
children:integer;
f:integer;
ff:integer;
end;
var
c:cl;
begin
c:=new cl;
writeln('Введите кол-во учеников: ');
read(c.children);
writeln('Введите кол-во стульев: ');
read(c.f);
if c.children>c.f then
begin
writeln('Некорректное значение (учеников < стульев)');
Halt;
end;
c.ff:=c.f mod c.children;
writeln('Кол-во учеников: ',c.children);
writeln('Кол-во стульев: ',c.f);
writeln('Кол-во лишних стульев: ',c.ff);
end.
(Если учеников больше, чем стульев, программа закроется с уведомлением. Если учеников столько же, сколько и стульев или меньше, то напишет кол-во лишних стульев).