Дана программа на языке ПАСКАЛЬ: var n i S r : integer; BEGIN n:=1234; S:=0; while n>0 do begin ...: ответ на тест 179167 - Математика и информатика

Дана программа на языке ПАСКАЛЬ:
 var n, i, S, r : integer;
BEGIN
   n:=1234; S:=0;
     while n>0 do
             begin
                r:=n mod 10;
                n:=n div 10;
                S:=S+r*r;
            end;
    writeln (S);
END.
Тогда результатом работы этой программы является ...