Откуда взялся ноль? - Turbo Pascal

Формулировка задачи:

В самоучителе задан такой синтаксис: if a = 28 then WriteLn(f) else k:= 44; на этого синтаксиса составил программу.

 uses Crt;
Var a, k: integer;
        f: Char;
begin
ClrScr;
  ReadLn(a);
if  a = 28  then  WriteLn('f')  else  k:= 44;
WriteLn(k);
  ReadLn

end. На выходе имеем:

28                         5
f                            44
0

И, конечно, вопрос: почему при выполнении 1-го условия печатается 0. Он ведь не должен печататься.

Решение задачи: «Откуда взялся ноль?»

Листинг программы

uses Crt;
var a, k: integer;
    f: Char;
begin
  ClrScr;
  ReadLn(a);
  if a = 28 then WriteLn('f') else begin
    k := 44;
    WriteLn(k);
  end;
  ReadLn
end.

Объяснение кода листинга программы

Программа начинается с заголовка uses Crt; который указывает на использование библиотеки Crt для работы с консолью.
Затем объявляются три переменные: a, k и f типа integer (целое число) и Char (символ) соответственно.
Далее вызывается функция ClrScr, которая очищает экран перед выводом информации.
Затем пользователю предлагается ввести значение переменной a с помощью функции ReadLn.
Если значение переменной a равно 28, то выводится сообщение 'f' с помощью функции WriteLn.
В противном случае переменной k присваивается значение 44 и выводится сообщение с помощью функции WriteLn.
После этого пользователю предлагается снова ввести значение с помощью функции ReadLn.
Программа завершается.