Ví dụ 1:

Program vd1;

Uses crt;

Var a,b,c:real;

      D,x1,x2:real;

Begin

Clrscr;

Write('Nhap lan luot a,b,c:');

Readln(a,b,c);

D:=b*b-4*a*c;

If D<0 then Writeln('Pt vo ngiem')

     Else 

     Begin

          x1:=(-b-sqrt(D))/(2*a);

          x2:=-b/a-x1;

          Writeln('x1=',x1:9:2,' ;x2=',x2:9:2);

      End;

Readln

End.

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 1:

program giai_phuong_trinh_bac_2;
uses crt;
var a, b, c, x1, x2, x, dt : real;
begin
clrscr;
write('nhap lan luot he so a, b, c :'); readln(a, b, c);
dt :=b*b - 4*a*c;
if dt >0 then
begin
writeln('phuong trinh co 2 nghiem phan biet la : ');
x1 := (-b + sqrt(dt))/(2*a);
x2 := (-b - sqrt(dt))/(2*a);
writeln('nghiem x1 =', x1:8:2);
writeln('nghiem x2 =', x2:8:2);
end
else
if dt = 0 Then
begin
x:=(-b/(2*a));
writeln('phương trinh co 1 nghiem kep la : ', x:8:2 );
x:=(-b/(2*a));
end
else
writeln(' Phương trinh vo nghiem');
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.