Program pokupka;
Uses crt;
Var a,k,k1,k2,b,c,f:
Выражение;
Clrscr:
write('введите массу яблок');
readln(a);
write('введите цену яблок=');
readln(k);
write('введите массу картошки=');
readln(b);
write('введите цену картошки=');
reagln(k1);
write('введите массу апельсинов=');
readln(c);
write('введите цену апельсинов=');
readln(k2);
f:=(a*k)+(b*k1)+(c*k2);
write('стоимость всей покупки',a,',k,',b,',k1,',c,',k2,'=f);
and.
Ошибка в 6 строчке, пишет ожидался тип.