Câu 1:Chương trình sau có kết quả gì? Program vd; Var a,b,: real; x,: integer; Begin readln (a,b); If a>b then x:=a else x:=b; Write (x); End. 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 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.