Question

Василиса прекрасная сказала Кощею бессмертному, что выйдет за него замуж тогда, когда у него будет 5000 сундуков с золотом, сейчас у него 3000 сундуков, каждый год кол-во сундуков увеличивается на 20%. Через, сколько лет Василиса выйдет замуж?
Паскаль. С использованием while

Answer 1

var a,s:integer;
begin
a:=3000
while a<5000 do begin
a:=a+(a*0,2);
s:=s+1;
end;
print(s);
end.

Answer 2

Ошибочка a:=a+(a*0.2); запятую поставил вместо точки