При использовании алфавита из 32 символов на 1 символ необходимо использовать log(2)32 = 5 бит. 6400 байт = 6400*8 бит Количество строк = 6400*8/(5*32*5) = 64
Var x:real; begin x := -4; while x <= 4 do begin writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2); x := x + 0.5; end; readln; //задержка ввода end.