câu 1:

program test;

uses crt;

var n: integer;

begin clrscr;

write('nhap n'); readln(n);

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

if n mod 2 = 1 then write(n,'la so le');

readln;

end.

câu 2:

program test;

uses crt;

var n: integer;

begin clrscr;

write('nhap n'); readln(n);

if n^2 = (n-1)^2 + (n-2)^2 then write(n,'la so pitago')

else write(n,'ko la so pitago');

readln;

end.

1.

uses crt;

var n: integer;

begin

clrscr;

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

if n mod 2 = 0 then write('N la so chan') else write('N la so le');

readln

end.

2.

uses crt;

var n: integer;

begin

clrscr;

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

if sqr(n)=sqr(n-1)+sqr(n-2) then write('N la so py-ta-go') else write('N la so py-ta-go');

readln

end.