Viết chương trình pascal và so sánh chiều cao của 2 bạn tân và tiên dùng câu lệnh điề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!

program sosanh_chieucao;

uses crt; 

var Tan, Tien: real;

begin

clrscr;

write('Nhap chieu cao cua Tan:');

readln(tan);

write('Nhap chieu cao cua Tien:');

readln(tien);

if Tan>Tien then writeln('Tan cao hon Tien')

else if Tan<Tien then writeln('Tien cao hon Tan')

else if Tan=Tien then writeln('Hai ban cao bang nhau');

readln

end.