câu 1

uses crt;

var a,b,s:integer;

begin

clrscr;

write('Nhap so thu nhat: ');readln(a);

write('Nhap so thu hai: ');readln(b);

s:=a+b;

writeln('Tong: ',s);

readln

end.

câu 2

uses crt;

var a,b,s:integer;

begin

clrscr;

write('Nhap chieu dai: ');readln(a);

write('Nhap chieu rong: ');readln(b);

s:=(a+b)*2;

writeln('Chu vi: ',s);

readln

end.

câu 3

a)

uses crt;

begin

clrscr;

writeln('Chung toi la lop 8C xin chao ban');

readln

end.

b)Bạn tự lưu nhé

câu 4

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap so thu nhat: ');readln(a);

write('Nhap so thu hai: ');readln(b);

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

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

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

readln

end.