Определить, хватит ли имеющейся суммы s на покупку n-го количества товара (при известной цене товара). написать программу в паскале!

Var n: integer; s,cena: real; begin write('введите цену товара: '); readln(cena); write('введите количество товара  : '); readln(n); write('введите имеющуюся сумму: '); readln(s); if s> =cena*n then writeln('денег хватит') else writeln('денег не хватит'); end.

. в древней индии писали на камне и листьях пальмы. листья пальмы высушивали и нарезали длинными, узкими пластинами. надпись наносили тушью. если для записи использовалось более одного листа, то все написанные листы соединяли бечевкой, концы которой прикреплялись к хорошо обструганным деревянным дощечкам. пальмовые листы находились между двумя дощечками, как книга в переплете. иногда поверхность дощечек покрывали тонкими серебряными пластинами с узорной резьбой

 

источник информации иайл.ру

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.