Как оформляются функции в тексте программы?

б)имя существительное

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495

var

  a,b: longint;

begin

  readln(a,b);

  while a> 0 do

  begin

    if a mod 10=b then

  begin

    writeln('est');

    halt;

  end;

  a: =a div 10;

end;

writeln('net');

end.

февраль-3 месяц зимы

май-3 месяц весны

август-3 месяц лета

сентябрь не знаю как связать