Viết chương trình thực hiện các việc sau bằng passcal: 1, Nhập vào 2 số a,b 2, Hiển thị 2 số vừa nhập 3, Tính tổng a+b 4, Tính hiệu a-b 5, Tính tích a*b 6, Tính thương a/b 7, Kiểm tra xem số nào lớn hơn 8, Kiểm tra xem a chia hết cho b hay không?

program bai_tap;
uses Crt;
var a,b,t,h,tich:Integer  ; thuong:Real;
begin
Write('nhap 2 so a,b');readln(a,b);
Writeln('2 so vua nhap la',a,' ',b);
t := a+b;
h := a-b;
tich := a*b;
thuong := a/b;
writeln('Tong a+b la',t);
writeln('Hieu a-b la',h);
WriteLn('Tich a*b la',tich);
writeln('Thuong a/b la',thuong);
if  a>b then write('a lon hon b');
if b>a then Write('b lon hon a');
if a=b then Write('a bang b');
if a mod b = 0 then write ('a chia het cho b') else write ('a khong chia het cho b');
readln;
end.