помогите составить программу в паскале!Известна стоимость 1 кг конфет, печенья, яблок. Найти стоимость всей покупки, если купили х кг конфет, y кг печенья и z кг яблок.

var k,p,i,s,x,y,z:real;beginwrite('Стоимость килограмма конфет: ');readln(k);write('Стоимость килограмма печенья: ');readln(p);write('Стоимость килограмма яблок: ');readln(i);write('Купили конфет: ');readln(x);write('Купили печенья: ');readln(y);write('Купили яблок: ');readln(z);s:=x*k+y*p+z*i;write('Потратили всего: ',s);readln;end.