viết chương trình in ra bảng chia 5 giúp mình với!!

program bangchia5;

uses crt;

var i:byte;

begin

     clrscr;

     textcolor(red);   {tô chữ màu đỏ, không cần cũng được}

     writeln(‘BANG CHIA 5’);

     textcolor(yellow);   {tô chữ màu vàng, không cần cũng được}

     for i:=1 to 10 do

          writeln(5*i,’ : 5= ‘,i);

     readln;

end.