... ');readln(dong);chuchay(s1,dong);readlnend. Bài thực hành số 7program ttamgiac;uses crt;Bµi tËp Tin häc 11 PASCAL §Æng H¶i NamChương 2 Bài thực thành số 1 Bài 8. a)program bai8a;uses crt;var ... Bµi tËp Tin häc 11 PASCAL §Æng H¶i Namend;write('Sau khi dao ',dem,' lan');for i:=1 to n dowrite(A[i]:7);writeln;readlnend. Bài thực hành số 5 Bài 1. program ... fibonaxi thu ',n,'la ',f);readlnend. Bài 9. program bai9;uses crt;var A:array[1 15,1 15] of integer;Bµi tËp Tin häc 11 PASCAL §Æng H¶i NamN, i, j, max, ind, vsp:integer;beginclrscr;write('Nhap...