program 1_37;
var d,c1,c2,k1,k2,s:integer;
begin
write('Введите количество денег у покупaтеля ');
readln(d);
if d<=0 then writeln('у покупателя нет денег')
else
begin
write('Введите цену продукта первого вида ');
readln(c1);
write('Введите количество продуктов первого вида ');
readln(k1);
write('Введите цену продукта второго вида ');
readln(c2);
write('Введите количество продуктов второго вида ');
readln(k2);
s:=c1*k1+c2*k2;
if d else writeln('Стоимость покупки ',s);
end;