в классе N девочек и M мальчиков. сколько учеников в классе? какой процент девочек и мальчиков?решить в паскале нужно

var n,m:integer;begin  write ('Girls: ');  readln (n);  write ('Boys: ');  readln (m);  writeln ('All pupils: ',n+m);  writeln ('Procents girls: ',n*100/(n+m));  writeln ('Procents boys: ',m*100/(n+m));end.