Ví dụ 2:

Program vd2;

Uses crt;

Var N:integer;

Begin

Clrscr;

Write('Nam:'); Readln(N);

If ((N mod 4=0) and (N mod 100<>0)) or (N mod 400=0)

Then Writeln('So ngay trong nam la 366')

Else Writeln('So ngay trong nam la 365');

Readln

End.

Ví dụ 3:

Program vd3;

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('a='); Readln(a);

Write('b='); Readln(b);

If a>b then Writeln('Gia tri lon nhat:',a);

If a<b then Writeln('Gia tri lon nhat:',b);

If a=b then Writeln('Hai gia tri bang nhau');

Readln

End.

vd 2 :

program nam;
uses crt;
var  b : integer;
begin 
clrscr();;
write('nhap nam :'); readln(b);
if ((b mod 400 = 0 ) or ( b mod 4 = 0)) and( b mod 100 <> 0 ) then 
writeln('nam ', b ,' co 366 ngay ' )
else writeln('nam ', b ,' co 365 ngay ' );
readln
end.

vd 3 :

Program maxx;
Uses crt;
Var a, b:real;
Begin
Clrscr;
Write(' nhap gia tri a :'); Readln(a);
Write('nhap gia tri b :'); Readln(b);
if a <> b then
begin
if a > b then writeln(a, ' la gia tri lon nhat') 
else writeln(b , ' la gia tri lon nhat');
end 
else writeln('hai gia tri bang nhau ');
Readln
End.