Viết chương trình đưa ra màn hình 10 dòng bảng cửu chương 5

program bang_5;

uses crt;

var i:byte;

begin

       clrscr;

       for i:=1 to 10 do

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

       readln;

end.