Question

Напишите результат выполнения следующей программы:
Program z;
Var i:integer;
Begin
For I:=5 downto 1 do write ('*');
End.

Answer 1

    i              {что выдаст}
5                   *
4                    **
3                   ***
2                   ****
1                   *****