program klass;

uses crt;

var b, S, a: integer;

begin

writeln('введите число, на сколько мальчиков больше чем девочек: B = ');

readln(b);

a:=15+b;

S:=15+a;

writeln('В классе учится ',S,' человек');

readln;

end.

Program kids;

var m,j,Summa:integer;

begin

  writeln('На сколько мальчиков больше ?'); readln(m);

  j:=15;

  Summa:=j+(m+j);

  writeln('В нашем классе ',Summa,' человек.');

 readln;

end.

________

j - это сумма девочек, а m+j - это сумма мальчиков.