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

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