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