Viết chương trình pasca số sách chiều cao của 2 bạn tân và tiến dùng câu lệch đều kiện If....then...Else

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program chieu_cao;
uses crt;
var Tan, Tien: integer;
begin
clrscr;
writeln('Hay nhap chieu cao o don vi cm!'); delay(1000);
writeln('Nhap chieu cao cua Tan: '); readln(Tan);
writeln('Nhap chieu cao cua Tien: '); readln(Tien);
if (Tan=Tien) then writeln('Hai ban cao bang nhau') else 
if (Tan>Tien) then writeln('Ban Tan cao hon') else writeln('Ban Tien cao hon');
writeln;
readln;
end.

KHI NHẬP CHIỀU CAO CỦA 2 BẠN TÂN VÀ TIÊN LẦN LƯỢT LÀ 199 VÀ 188 (CM) THÌ ĐƯỢC MÀN HÌNH KẾT QUẢ NHƯ HÌNH!

`\text{uses crt;}`
`\text{var a,b: integer;}`
`\text{begin}`
`\text{clrscr;}`
`\text{writeln('Nhap chieu cao cua ban Tan: '); readln(a);}`
`\text{writeln('Nhap chieu cao cua ban Tien: '); readln(b);}`
`\text{if (a=b) then writeln('Hai ban cao bang nhau') else}`
`\text{if (a>b) then writeln('Ban Tan cao hon')}`

`\text{else writeln('Ban Tien cao hon');}`
`\text{readln;}`
`\text{end.}`

`\text{CHÚC BẠN HỌC TỐT}`