Нужно написать программу pascal abc

Программа про банк(Мы в школе изучали):
Program bank;
var
S1, S2, P:real;
g:integer;
write('Введите начальную сумму'); readln(S1);
write('Введите конечную сумму'); readln(S2);
write('Введите процентную ставку'); readln(P);
g:=0; while S1<S2 do
begin 
S1:=S2+32*S1*P/100;
g:=g+1;
end;
writeln('До накопления суммы пройдёт ',g,' лет');
end.
Правда длинная но в тетрадке у меня только это.