Ккакому информационному процессу относится написание диктанта?

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0