Câu 1

Program cau1;

uses crt;

var n:integer;

begin

clrscr;

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

if n> 0 then writeln('n la so duong ') else

writeln('n la so am ');

readln;

end.

Câu 2

Program Chan_le;

uses crt;

var n: integer;

begin

clrscr;

write('nhap vao so n ='); readln(n);

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

else

write('n la so le ');

readln;

end.

Câu 3

program giatrilonnhat;

var a,b,c,max:integer;

begin

writeln(nhap a,b,c=');

readln(a,b,c);

max:=a;

ì max<b then max:=b;

if max<c then max:=c;

writeln('gia tri lon nhat la', max);

readln

end.

âu 1 

1: uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then writeln(n,' la so duong');
if n<0 then writeln(n,' la so am');
readln;
end.

câu 2 

var a:integer;

Begin

writeln('nhap a'); readln(a);

if a mod 2=0 then write ('so chan') else write ('so le');

readln

end.