Free Pascal Viết chương trình nhập từ bàn phím biến a,b thực. Thông báo ra màn hình cho biết số nào có giá trị lớn hơn

1 câu trả lời

Program Hotboy;

Uses crt;

Var a,b : real;

Begin

Clrscr;

Write('nhap a');

Readln(a);

Write('nhap b');

Readln(b);

If a>b then write(a,'lon hon ',b) 

Else

Write(b,'lon hon ',a);

Readln

End.