Program vd;
Var a,b,: real; x,: integer;
Begin readln (a,b);
If a>b then x:=a else x:=b;
Write (x);
End.
Chương trình này cho phép nhập 2 số a và b
Nếu a>b thì in ra kết quả x=a
Nếu b>a thì in ra kết quả x=b
Câu 2:Viết chương trình tính tổng tích và hiệu của hai số được nhập từ bàn phím
Program Hotboy ;
Uses crt;
Var a,b : real;
Begin
Write('nhap so a');
Readln(a);
Write('nhap so b');
Readln(b);
Writeln('tong la',a+b,' hieu la',a-b,'tich la',a*b,' thuong la',a/b);
Readln
End.