Пользователь вводит целое положительное число. вывести на экран символы "*" таким образом: в первой строке количество "*" равно последней цифре числа, в второй - предпоследней и так далее. например, для числа 351 получим следующую картинку: * ***** ***

Var      a, i: integer; begin   read(a);   while(a < > 0) do    begin     for i : = 1 to a mod 10 do write('*');     writeln();     a : = a div 10;   end; end.

Var       i, n, j: integer;       a, s: real; begin       readln(n);             for i : = 1 to n do       begin               a : = 1;               for j : = 1 to 3 * i do                       a : = a * 1 / i;               s : = s + 1 / a;       end;             writeln(s: 5: 3); end.

Var   i: integer;     begin for i: =1 to 9 do  write(i);     writeln(10); for i: =0 to 8 do  write(i);     writeln(9); for i: =1 to 2 do  write('0');     for i: =1 to 7 do  write(i);     writeln('8'); for i: =1 to 3 do  write('0');     for i: =1 to 6 do  write(i);     writeln('7'); for i: =1 to 4 do  write('0');     for i: =1 to 5 do  write(i);     writeln('6'); for i: =1 to 5 do  write('0');     for i: =1 to 4 do  write(i);     writeln(5); for i: =1 to 6 do  write('0');     for i: =1 to 3 do    write(i);     writeln('4'); for i: =1 to 7 do  write('0');     for i: =1 to 2 do  write(i);     writeln(3); for i: =1 to 8 do  write('0');     write('1'); writeln('2'); for i: =1 to 9 do  write('0');     writeln(1);     end. как сделать более кратко не знаю. но эта программа работает.