Question

Надо перевести программу с Паскаля на Кумир,срочно помогите пожалуйста !!!!

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.