danulpopov Как то так
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var i:integer;
var ur1:=ReadReal('ur1 =');
var ur2:=ReadReal('ur2 =');
var p:=ReadReal('p = ');
for i:= 1 to 7 do
begin
Writeln(i,' День - ',ur1 - ur1*p/100:0:0);
ur1:=ur1 - ur1*p/100;
end;
end.