Определить, хватит ли имеющейся суммы 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.

(63+12): 3=25

(39-18)*4=84

750-12: 3=746

420+9*6=474

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.