... (i*4+j*2=100) and (i+j=36) then writeln(i,' con cho, ',j,' con ga.');readln;end.5. VCT xuất các số nguyên tố từ n đến m.(Dùng chương trình con)?var j,n,m,i:integer;function ktranto(x:integer):boolean;beginktranto:=true;for ... riêng biệt hoặc làm chungmột chương trình có lựa chọn )uses crt; {BAI TOAN VE CAC LOAI HINH VOI KICH THUOC VA KI TU NHAP TU BAN PHIM}var c,h,n,d,r,luachon:integer; ch:char;beginclrscr;writeln(' ... s1:=s1+s[i];write(&apos ;Co hien so khong (c/k)');readln(tloi);if upcase(tloi)<>'C' then write('Tam biet') else if length(s1)<length(s)then write(&apos ;Ban nhap so sai:...