ОЧЕНЬ Безотлагательно 50 баловСоставьте блок схему к задачке Дано целое число

ОЧЕНЬ Безотлагательно 50 балов


Составьте блок схему к задачке


Дано целое число N (gt;0) используя операции дробленья нацело и взятия остатка от разделения, найти количество и сумму его цифр (N=63)

Program n_18;
var
n,sum,Q: integer;
begin
write (' n = ');
readln (n);
writeln;
Q:= 0;
sum:=0;
while ngt;0 do
begin
inc (Q);
sum:= sum + N mod 10;
N:= N div 10;
end;
writeln ('количество цифр: ' , Q);
writeln (' сумма цифр: 'sum);
end.