Вы ввели трехзначное число. затем ввели любое число а. составьте программу, определяющую, равна ли сумма цифр числа задоному числу а контруха по инфе

Var a, b, c, i: integer;
    d: string;
begin
     readln(a, b); 
     d := inttostr(a);
     for i := 1 to length(d) do
         c := c + strtoint(d[i]);
     if (b = c) then writeln('Yes') else writeln('No');
end.