Задача 8.11 напиши программу которая принимает с клавиатуры 2 числа 1 количество учеников в классе, 2 количество стульев в классе программа проверит соответствие между двумя соответствиями и выведет на экран соответствующие цифры например 35, 39 разделить на экран проводит 4 лишних.

Pascal:

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.

(Если учеников больше, чем стульев, программа закроется с уведомлением. Если учеников столько же, сколько и стульев или меньше, то напишет кол-во лишних стульев).