Viết chương trình in ra màn hình a, ****************************** * họ và tên * * lớp * * trường * ****************************** b, bảng cửu chương 7 c, 50 chữ '' HOC TRUC TUYEN ''

program oken;

uses crt;

var i,:intger;

begin

clrscr;

write('***********************');

write('*  pham phuc thinh  *');

write('*      8/1                     *');

write('*   Dong Da                *');

write('************************');

write('nhan Enter de chuyen sang bai 2');

readln;

clrscr;

writeln('BANG CUU CHUONG 7');

for i:=1 to 10 do

     writeln('7 * ',i,'=',7*i);

writeln('nhan Enter de chuyen sang bai 3');

readln;

clrscr;

writeln('in 50 chu HOC TRUC TUYEN');

delay(120);

for i:=1 to 50 do

     writeln('HOC TRUC TRUYEN');

writeln('nhan Enter de ket thuc');

readln;

end.

for i:= 

a) (hình 1)

b) (hình 2) chạy chương trình với dữ liệu nhập vào là 7

c) (hình 3)