Дано трехзначное и четырехзначное число. В каком числе сумма цифр больше? Напишите, пожалуйста, программу для Pascal.ABC.

var x,y, sum1,sum2:integer;begin  readln(x);  readln(y);  while x<>0 do begin      sum1:=sum1 + x mod 10;      x := x div 10;  end;   while y<>0 do begin       sum2:=sum2 + y mod 10;      y := y div 10;   end;   if sum1>sum2 then Writeln('v pervom: ',sum1, ' (vo vtorom ',sum2,')') else writeln('vo vtorom: ',sum2,' (v pervom ',sum1,')');end.