program
var
a,b,c,d,e:integer r,t,h,g,n,S,P,O:real
begin
writenln('введите стоимость первого продукта')
read('a')
writenln('введи стоимость второго продукта')
read('b')
writenln('введите стоимость третьего продукта')
read('c')
writenln('введите стоимость четвертого продукта')
read('d')
writenln('введите стоимость пятого продукта')
read('e')
writenln('введите стоимость первого продукта за один килограмм или за одну штуку)
read('r)
writenln('введите стоимость второго продукта за один килограмм или за одну штуку')
read('t')
writenln('введите стоимость третьего продукта за один килограмм или за одну штуку')
read('h)
writenln('введите стоимость четвертого продукта за один килограмм или за одну штуку')
read('g')
writenln('введите стоимость пятого продукта за один килограмм или за одну штуку')
read('n')
S:=(a*r)+(b*t)+(c*h)+(d*g)+(e*n)('стоимость покупки')
writenln('введите сумму платежа')
read('P')
for(S>=2000) do
O:=S-P
writenln(O)('сдача')
end
помогите пожалуйста найти де проблему и если не затруднит напишите правильную проблему заранее спасибо