Код в паскаль ! Человек вложил 100 000 рублей под 4% в месяц. Успеет ли он накопить на машину стоимостью 2 700 000 за 6,5 лет.

С вводом данных с клавиатуры

Не, не получится накопить

Объяснение:

program kopilka;

uses crt;

var x, c, p, y:real; i, m:integer;

begin

clrscr;

write ('Введите начальную сумму вклада, рублей: ') ;

readln(x);

write ('Введите желаемую сумму накопления, рублей: ') ;

readln(c);

write ('Введите срок накопления, лет: ') ;

readln(y);

m:=round(y*12);

write ('Введите ежемесячно начисляемый процент (%) : ') ;

readln(p); p:=p/100;

for i:=1 to m do

x:=x+x*p;

if x<c then write('Вы накопили ',x:6:2,' рублей, это меньше запланнированной суммы в ',c:6:2,' рублей')

else write('Ваша цель по накоплению ',c:6:2,' рублей достигнута: вы накопили ',x:6:2,' рублей') ;

readln;

end.