Program zzz; var days:integer; var discount, sum:real; var days2:integer; begin readln(days, discount, sum); days2 := 0; sum := 0; discount := discount / 10; while( days2 <= days ) do begin sum := sum + (sum * discount); {я не до конца понял задание, посему, скорее всего, придется тут менять} sum := sum + 3; days2 := days2 + 1; end; writeln('Ответ: ', sum); <span>end.</span>