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

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