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