Составить прогу в паскале для решения : строитель положил в первый день 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.