Вклассе 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.