Для каждой числа (0-9) вывести подходящее ей заглавие на английском языка.

uses Timers;

var a,b:integer;

procedure TimerProc;

begin

if b = 0 then writeln('zero');

if b = 1 then writeln('one');

if b = 2 then writeln('two');

if b = 3 then writeln('three');

if b = 4 then writeln('four');

if b = 5 then writeln('five');

if b = 6 then writeln('six');

if b = 7 then writeln('seven');

if b = 8 then writeln('eight');

if b = 9 then writeln('nine');

b:=b+1;

end;

begin

var t := new Timer(100,TimerProc);

 t.Start;

 Sleep(1000);

end.