Определить можно ли купить 3 товара на некую сумму денег. (Входные данные: цены товаров-С1, С2, С3 и сумма денег-S) Паскаль.

Var c1, c2, c3, s:integer; ну или другой тип, если не целые числа

begin

writeln ("Введите цену 1 го товара ") ; readln (c1) ;

writeln ("Введите цену 2 го товара ") ; readln (c2) ;

writeln ("Введите цену 3 го товара ") ; readln (c3) ;

writeln ("Введите сумму") ; readln (s) ;

if (c1+c2+c3<=s) then writeln ("Денег хватает") else writeln ("Денег не хватает") ;

end.