Переведите, пожалуйста, из Паскаля в Кумир


uses crt;
var
i:integer;
mas: array [1..10] of integer;
BEGIN
write('Ishodniy massiv:');
for i:=1 to 10 do
begin
mas[i]:=random(900)+101;
write(mas[i]:4);
end;
writeln;

write('Chisla kratnie 3 i 5:');
for i:=1 to 10 do
if ((mas[i])mod(3)=0) and ((mas[i])mod(5)=0) then {изменилось условие вместо or стало and}
write(mas[i]:4);
END.

алг массивнач  цел N = 10  целтаб mas[1:N]  цел i   вывод "Исходный массив: "  нц для i от 1 до N    mas[i] := irnd(101,1000)    вывод mas[i], " "  кц  вывод нс   вывод "Числа, кратные 3 и 5: "  нц для i от 1 до N)    если mod(mas[i],3)=0 и mod(mas[i],5)=0 то      вывод mas[i], " "    все  кцкон