Câu 1

program aicaohon;

uses crt;

var Nhi, Tram:real;

begin

clrscr;

write('nhap chieu cao cua Nhi=');readln(Nhi);

write('nhap chieu cao cua Tram='); readln(Tram);

if Nhi>Tram then writeln('Ban Nhi cao hon');

if Tram>Nhi then writeln('Ban Tram cao hon')

else writeln('hai ban cao bang nhau');

readln

end.

Câu 2

program oken;
uses crt;
var n,i: integer;
    t: qword;
begin
        clrscr;
        write('nhap 1 so n: '); readln(n);
        t:=1;
        for i:=1 to n do
             t:=t*i;
        Writeln('tich cua cac so tu 1 den ',n,': ',t);
        readln;
end.

Câu 3

uses crt;

var  n, i : integer;

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

for i:= 1 to 9 do writeln(n,’ x ‘, i, ‘ = ‘, n*i);

readln

end.

$#QLinkVN$

Câu 1: Hình 1

Câu 2: Hình 2

Câu 3: Hình 3

--------------------------------