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

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.

Answer 1

Алг 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
кон