Что будет выведено в результате вызова процедуры

[Никита757]

Procedure a(var v:char); 
Var c:char;
Begin
Read(c); v:=c;
If c<>'.' Then a(v);
Writeln(v)
End;

Оператором a(g);
Если g - глобальная переменная типа char, а файл input содержит последовательность литер 'a' 'b' 'c' 'd' '.' .

[Аватар]

Пять точек