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

var ar:array[1..7] of integer;k,i:integer;begin;for i:=1 to 7 dobegin;writeln('Введите цену ',i,' продукта:');readln(ar[i]);k:=k+ar[i];end;if k>500 then writeln('Не хватит') else writeln('Хватит');end.