Гражданин открыл счет в банке,вложив 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.