Найдй ключивые слова по теме и, используя их, составь предложение​

использовать Рисователь

алг кот

нач

новый лист(160, 210, белый)

линия (35,10,20,20)

линия (10,100,20,20)

линия (10,100,20,140)

линия (50,200,20,140)

линия (50,200,90,200)

линия (80,180,90,200)

линия (80,180,100,180)

линия (110,200,100,180)

линия (110,200,150,200)

линия (130,180,150,200)

линия (130,180,150,150)

линия (130,115,150,150)

линия (130,115,150,80)

линия (35,10,50,25)

линия (50,25,40,140)

линия (50,25,40,140)

линия (40,140,55,150)

линия (55,150,120,150)

линия (120,150,120,120)

линия (120,120,90,120)

линия (90,120,50,100)

линия (50,100,80,90)

линия (80,90,110,30)

линия (110,30,110,10)

линия (110,10,150,80)

кон

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

Объяснение:

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.