Надо перевести программу с паскаля на кумир, program supermarket; var t : array[1..10] of integer; c : array[1..10] of real; i : integer; sum : real; begin sum: =0; for i: =1 to 10 do begin readln(t[i],c[i]); sum: =t[i]*c[i] + sum; end; writeln(sum); end.

Алг Supermarket
нач
   цел таб T[1:10]
   вещ таб C[1:10]
   цел i; вещ sum
   sum:=0
   нц для i от 1 до 10
     ввод T[i],C[i]
     sum:=sum+C[i]*T[i]
   кц
   вывод sum
кон