Bài 11: Nhập vào chiều cao của bạn a và bạn b, in ra màn hình thông báo bạn nào cao hơn. If a>b then writeln(‘Ban a cao hon’) Else writeln(‘Ban b cao hon); Bài 12: Viết chương trình tính kết quả a chia b (a/b), với a,b được nhập từ bàn phím. Nếu trường hợp b<0 thì in thông báo phép chia không thực hiện được.

Bài 11: 

program sosanh;
uses crt;
var a,b:integer;
begin
 clrscr;
 write('Nhap chieu cao ban a: '); readln(a);
 write('Nhap chieu cao ban b: '); readln(b);
 if a>b then writeln('Ban a cao hon') else writeln('Ban b cao hon');
 readln;
end.

Bài 12:

program tinh;
uses crt;
var a,b:integer;
begin
 clrscr;
 write('Nhap a: '); readln(a);
 write('Nhap b: '); readln(b);
 if b<0 then writeln('Phep chia khong thuc hien duoc') else writeln(a/b:0:3);
 readln;
end.