program schools;

var a,b,c,summ:integer;

begin

 write ('Введите количество учеников в школе 1 >>');

 readln (a);

 b:=a+200;

 c:=a+300;

 summ:=a+b+c;

 writeln ('Количество учеников в школе 2: ', b);

 writeln ('Количество учеников в школе 3: ', c);

 writeln ('Количество учеников во всех школах в целом: ', summ);

end.

Примечание: в условии А) не написано больше или меньше, поэтому ты можешь поменять + на - если нужно, место где это нужно сделать я выделил жирным шрифтом.