Viết chương trình nhập ba số a, b, c từ bàn phím

Viết chương trình nhập ba số a, b, c từ bàn phím

Đề bài: Viết chương trình nhập ba số a, b, c từ bàn phím. Hiển thị kết quả ra màn hình giá trị lớn nhất của 3 số đó?

Lời giải:

program GT_lon_nhat;

uses crt;

var a, b, c: integer;

begin

write('nhap so a= '); readln(a);

write('nhap so b= '); readln(b);

write('nhap so c= '); readln(c);

if a>b then write('gia tri lon nhat la ',a) else if b>c then write('gia tri lon nhat la ',b) else write('gia tri lon nhat la ',c);

readln;

end