Переведите с Паскаля на кумир плзvar Chislo: Integer;n:byte;beginwrite(039;Число:

Переведите с Паскаля на кумир плз
var Chislo: Integer;
n:byte;
begin
write('Число: ');
read(Chislo);
n:=Chislo mod 10;
write('Заключительная цифра куба=');
case n of
2:write(8);
3:writeln(7);
7:write(3);
8:write(2);
else write(n);
end;
end.