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