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 строчке, пишет ожидался тип.
