Гражданин открыл счет в банке,вложив x рублей под z% годовых.Какова будет сумма вклада через y лет?

от души

var    x, z: real;    i, y: integer;begin    Readln(x, y, z);    for i := 1 to y do        x := x * (100 + z) / 100;        Writeln(x);end.