Анна Горшкова
Помогите пожалуйста, перевести задачу с паскаля на язык ассемблера если можно с пояснениями немножко)
var
a,n,i:integer;
begin
a:=1;
writeln('введите кол-во часов');
read(n);
for i:=1 to n do
begin
if i mod 3 =0 then
a:=a*2;
end;
Write('Амебы ',a);
writeln;
end.