Написать программу в паскале
В банк под 3% годовых кладут 1000 рублей. Через сколько лет сумма на вкладе будет 1500 рублей?

vara:real;b, c: integer;beginb:=0;a:=1000;while a<=1500 dobegina:=a+(a*0.03);inc(c);end;write ('Через ', c,'лет ');end.