`a)`

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

writeln('Tong cua hai so la: ',a+b);

writeln('Hieu cua hai so la: ',a-b);

writeln('Tich cua hai so la: ',a*b);

writeln('Thuong cua hai so la: ',a/b:4:2);

readln;

end.

`b)`

uses crt;

var a: real;

begin 

clrscr;

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

if a mod 2=0 then writeln(a' chan')

else writeln('a le');

readln;

end.

`c)`

uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a,b: '); readln(a,b);
if a>b then write(a,' lon hon ',b)
else if a<b then write(a,' nho hon ',b)
else if a=b then write(a,' bang ',b);
readln;
end.

#mình gửi code pascal nhá 

#tham khảo code và không hiểu có thể cmt hỏi

#đáp án tốt thì hãy cho mình 5 sao , tym , hay nhất 

#code by PTD <3 

#code pascal

Cau a

uses crt;
var
    a,b: integer;
begin
clrscr;
write('nhap a va b : ');
readln(a,b);
writeln('tong a va b la : ', a+b);
writeln('hieu a va b la : ', a-b);
writeln('tich a va b la : ', a*b);
writeln('thuong a va b la :', a/b:2:2);
readln;
end.

Cau b

uses crt;
var
    a,b: integer;
begin
clrscr;
write('nhap a va b : ');
readln(a,b);
if a mod 2 = 0 then
writeln(a,' la so chan')
else
writeln(a,' la so le');
if b mod 2 = 0 then
writeln(b, ' la so chan')
else
writeln(b, ' la so le');
readln;
end.

Cau c

uses crt;
var
    a,b: integer;
begin
clrscr;
write('nhap a va b : ');
readln(a,b);
if a > b then write(a,' la so lon nhat');
if a < b then write(b,' la so lon nhat');
if a = b then write(a,' ',b, ' la hai so bang nhau');
readln;
end.