Страница 164 §3.5 номер 15, ГДЗ по информатике за 8 класс к учебнику Босовой

program z15_33;

var

  i, z, y, x: integer;

begin

  write('x, y > ');

  readln(x,y);

  z := 0;

  for i := 1 to y do

    z := z + x;

  writeln('z= ', z)

end.

program z15_34;

var

  i: integer;

  h:real;

begin

  h:=40000;

  for i := 1 to 3 do

    h := h + 0.05*h;

  writeln('Через 3 года h= ', h,' человек')

end.