4. viết chương trình a, nhập vào 2 số nguyên bất kì từ bàn phím b, in ra màn hình tổng hiệu tích tương của 2 số nguyên đó c,in ra màn hình số lớn hơn d, kiểm tra xem số nào chẵn thì in ra( có thể cả 2 số đều chẵn hoặc k có số nào chẵn ) với lại cho mình hỏi cái này làm ra vở được k ạ mình cần gấp giúp mình với thanks

ảnh nha 

program oken;

uses crt;

var a,b:integer;

begin

clrscr;

write('nhap so thu 1: '); readln(a);

write('nhap so thu 2: '); readln(b);

writeln('tong 2 so: ',a+b);

writeln('hieu 2 so: ',a-b);

writeln('tich 2 so: ',a*b);

writeln('thuong 2 so: ',a/b:0:3);

if a>b then writeln('so ',a,' lon hon so ',b) else writeln('so ',a,' be hon so ',b);

if (a mod 2=0) and(b mod 2=0) then writeln('hai so deu la so chan')

                        else if (a mod 2=0) then writeln ('so ',a,'la so chan') 

                                          else if b mod 2=0 then writeln('so ',b,' la so chan')

                                                              else writeln('khong co so nao chan');

readln;

end.

-cái này ghi ra vở được nha bạn

 Cho mình xin câu trả lời hay nhất nha :D