Напишите программу:Сколько денег будет через 7 лет если в один банк положили сумму 2 500 000 под 5,5%, в другой банк положили 2 000 000 под 6%? Посчитать, где денег будет больше и на сколько

var s1,s2:real; i:integer;
begin
s1:=2500000;
s2:=2000000;
for i:=1 to 7 do
begin
s1:=s1+s1*5.5/100;
s2:=s2+s2*6/100;
end;
writeln(s1 = ,s1:0:2, s2 = ,s2:0:2);
if s1>s2
then writeln(В первом банке денег будет больше на ,s1-s2:0:2)
else writeln(Во втором банке денег будет больше на ,s2-s1:0:2);
end.

Результат:
s1 = 3636697.90 s2 = 3007260.52
В первом банке денег будет больше на 629437.38