задачка по информатике по блок-схеме... можно код на паскале или хотя бы скажите ответ

1138.688Program my;uses crt;vara,b : real;begina := 1024;b := a;while (a>=10) do begina := a/10;b := b+a;end;if (a=1) then writeln(b) else b := b + a; writeln(b);end.