Мама послала Петю в магазин за продуктами, дав ему 500 рублей. Известна стоимость каждого из 7 продуктов, которые он купил. Определить, хватит ли Пете

денег для покупки данных продуктов. (Паскаль)

Var ar:array[1 ... 7] of integer;

k, i:integer;

begin;

for i:=1 to 7 do

begin;

writeln ('Введите цену ', i,' продукта:');

readln (ar[i]);

k:=k+ar[i];

end;

if k>500 then writeln ('Не хватит') else writeln ('Хватит');

end.