K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

11 tháng 10 2021

Program    tinh;

Uses          crt;

Var 

a,b,tong,hieu:Integer;

Begin

If a>=b then ( neu a lon hon hoac bang b thi thong bao );

Write('nhap so a la');readln(a)

Write('nhap so b la');readln(b)

tong:=a+b

hieu:a-b

Writeln('tong hai so la',tong);

Writeln('hieu hai so la';hieu);

Readln;

End.