Составить прогу в Паскале для решения задачи: Строитель положил в первый день 100 кирпичей. Каждый следующий день он увеличивал количество кирпичей на Z процентов от предыдущего дня (Z — вещественное, 10< Z < 40). По данному Z определить, после какого дня суммарное количество кирпичей за все дни превысит 1000, и вывести найденное количество дней D (целое) и суммарное количество кирпичей К (вещественное число).

program stroitel;

 var k, d, z: real;

 begin  

   k:=100;

   d:=1;

   writeln ('Введите процент');

   readln (z);

   repeat

     k:=k+((k/100)*z);

     d:=d+1;

   until k>1000;

   writeln('кирпичей- ',k,'дней- ',d);

 end.