Действие компьютера, которое выполняется в один такт (в ответе должно быть 12 букв)

Действие компьютера, которое выполняется в один такт - микрокоманда

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

vara,b: integer; c: real; beginwriteln ('1'); read (a); writeln ('2'); read (b); c: =(a/1)/(1/b); writeln (c); end.