Какое количество байт в слове «слон»?

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

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.