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

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