So, this is pascal code
program cells; var a, f, a1, a2, a3, a4: integer; begin writeln(\'Write down number of cell\'); readln(a); f:=a mod 8;