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

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