Ответ:

begin

writeln('имя')

end.

P.S. можешь изменить цвет командой TextColor(Green)

Объяснение:

Также

var

fam, ima:string[20]

begin

write('фамилия') readln(fam)

write('имя') readln(ima)

writeln('привет','fam','ima)

readln

end