Ví dụ 1: 

Program vd1;

Uses crt;

Var a:integer;

Begin

Clrscr;

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

If (a mod 2=0) then writeln('a la so chan') else writeln('a la so le');

Readln

End.

Ví dụ 2:

Program vd2;

Uses crt;

Var x,y:integer;

Begin

Clrscr;

Write('Nhap x va y:');

Readln(x,y);

Writeln('x+y=',x+y);

Readln

End.

Ví dụ 3:

Program vd3;

Uses crt;

Begin

Clrscr;

Writeln('Gia trị can bac hai cua so 1234=', sqrt(1234):5:2);

Readln

End.

Ví dụ 4:

Program vd4;

Uses crt;

Var m,n:integer;

Begin

Clrscr;

Write('Nhap 2 so m va n:'); Readln(m,n);

While m<>n do

If m>n then m:=m-n else n:=n-m ;

Write ( 'Uoc chung lon nhat cua hai so do la:',m);

Readln

End.

Ví dụ 1:

uses crt;
var a:longint;
begin
clrscr;
   write('Nhap mot so nguyen a: ');readln(a);
   if a mod 2=0 then writeln(a,' la so chan') 
   else writeln(a,' la so le'); 
readln
end.

Ví dụ 2:

uses crt;
var x,y:longint;
begin
clrscr;
   write('Nhap hai so nguyen x,y: ');readln(x,y);
   writeln(x,'+',y,'=',x+y);
readln
end.

Ví dụ 3:

uses crt;
begin
clrscr;
   writeln(sqrt(1234):0:2);
readln
end.

Ví dụ 4:

uses crt;
var m,n:longint;
begin
clrscr;
   write('Nhap hai so nguyen duong m,n: ');readln(m,n);
   while m<>n do 
      if m>n then m:=m-n else n:=n-m;
   writeln('UCLN= ',m);
readln
end.