Определить можно ли купить 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.