Паскаль абс. составить программу для решения следующей : пират флинт положил 5000$ в банк под 3,5% годовых. через сколько лет сумма привысит 7000$?

Паскаль) хаха) изи)

program PuratFlint;

var sum, year, sum2: integer;

begin

sum := 5000;

sum2 := 7000;

year := 0;

while sum <= sum2 do

begin

sum := sum + sum / 100 * 3.5;

year := year + 1;

end;

write(year);

end.

я же говорил что изи)