Создать ЭТ, в которой нужно подсчитать результат умножения 3-х чисел (столбец f)

ну думаю что лишнее число  6.. так как все остальные простые числа.

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.

они могли обозначать союзы, знаки препинания, слова в один слог.

read(n);

s = str(n);

n1 : = int(s[1]);

n2 : = int(s[2]);

n3 : = int(s[3]);

if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")