câu 1:

program ct;

uses crt;

var a,b,T,tich,hieu:integer; thuong:real;

begin

clrscr;

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

write('nhap b:=');readln(b);

T:=a+b;

hieu:=a-b;

tich:=a*b;

thuong:=a/b;

writeln('tong la:',T);

writeln('hieu la:',hieu);

writeln('tich la:',tich);

writeln('thuong la:',thuong);

readln

end.

câu 2:

program ct;

uses crt;

var a:integer;

begin

clrscr;

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

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

if a mod 2<>0 then writeln(a,' la so le');

readln

end.

1)

program ct;

uses crt;

var a,b,S,H,T,Th:real;

begin clrscr;

   write('Nhap hai so tu nhien a, b: ); readln(a,b);

     S:=a+b; H=a-b; T:=a*b; Th:=a/b;

   writeln('Tong a, b la: ',S:4:2);

   writeln('Hieu a, b la: ',H:4:2);

   writeln('Tich a, b la: ',T:4:2);

   writeln('Thuong a, b la: ',Th:4:2);

readln;

end.

2)

program ct;

uses crt;

var n:integer;;

begin clrscr;

   write('Nhap so nguyen n: ); readln(n);

   if n mod 2=0 then writeln(n,' la so chan');

   if n mod 2<>0 then writeln(n,' la so le');

readln;

end.

Học tốt!