Turbo Pascal условный оператор

[antishoker]

Извиняюсь за раскопки, но в программе ошибочка.

Сообщение от Neurogenus

Алгоритм: общая накопленная сумма=общая накопленная сумма+общая накопленная сумма * % банка...

program bank;
uses Crt;
var abo:integer;//деньги абонента
    sum:real;//общая сумма
    pro:integer;//проценты
    year:integer;//года
begin
repeat
Writeln('Введите первоначальную сумму платежа в банк!');
Readln(abo);
if abo=0 then writeln('вы не внесли деньги!');
until abo>0;
repeat
Writeln('Введите установленные банком проценты!');
Readln(pro);
if pro=0 then writeln('банк не выполняет свои обязательства!');
until pro>0;
//по умолчанию
year:=0;
sum:=abo;
while sum<sqr(abo) do begin
sum:=sum+(sum*(pro/100));
inc(year);
Writeln('Год = ',year);
Writeln('Сумма на счету абонента = ',sum);end;
readln;end.

...до тех пор пока вклад не удвоится. Т.е. условие для выхода должно быть:

while sum<(abo*2) do

Может кому пригодится.