Bài tập pascal hay nhất Việt Nam

C1-1
Var
a , b , c : Real ;
BEGIN
Writeln (` Nhap do dai 3 canh cua tam giac : `) ;
Write (` a = `) ; Readln ( a ) ;
Write (` b = `) ; Readln ( b ) ;
Write (` c = `) ; Readln ( c ) ;
If ( a + b > c ) and ( b + c > a ) and ( c + a > b )
and ( a > 0 ) and ( b > 0 ) and ( c > 0 ) Then
Writeln (` Thoa man : Day la 3 canh cua mot tam giac `)
Else
Writeln (` Khong thoa man ! `) ;
Readln ;
END .

C1-2

Var
Tong , So : Real ;
I , N , Dem : Integer ;
BEGIN
Write (` Bao nhieu so : `) ; Readln ( N ) ;
Tong := 0 ; Dem := 0 ;
For I := 1 To N Do
Begin
Write (` So = `) ; Readln ( So ) ;
If ( So > 10 ) and ( So < 20 ) Then
Begin
Tong := Tong + So ;
Dem := Dem + 1 ;
End ;
End ;
Writeln (` So cac so >10 va <20 la : `, dem ) ;
Writeln (` Tong cua chung la :`, Tong ) ;
Readln ;
END .

C1-3

Var
Max , a , b , c , d : Real ;
BEGIN
Writeln (` Nhap gia tri cua 4 so : `) ;
Write (` a = `) ; Readln ( a ) ;
Write (` b = `) ; Readln ( b ) ;
Write (` c = `) ; Readln ( c ) ;
Write (` d = `) ; Readln ( d ) ;
Max := a ;
If Max < b Then Max := b ;
If Max < c Then Max := c ;
If Max < d Then Max := d ;
Writeln (` Gia tri lon nhat la : `, Max ) ;
Readln ;
END .

C1-4
Var
Thu , Ngay , Thang : Byte ;
Nam : Integer ;
BEGIN
Write (` Doc Ngay Thang Nam : `) ;
Readln ( Ngay , Thang , Nam ) ;
Nam := 1900 + ( Nam mod 1900 ) ;
If Thang < 3 Then
Begin
Thang := Thang + 12 ;
Nam := Nam - 1 ;
End ;
Thu := Abs ( Ngay + Thang * 2 + ( Thang + 1 ) * 3
div 5 + Nam + Nam div 4 ) mod 7 ;
Case Thu Of
0 : Writeln (` Chu Nhat `) ;
1 : Writeln (` Thu Hai `) ;
2 : Writeln (` Thu Ba `) ;
3 : Writeln (` Thu Tu `) ;
4 : Writeln (` Thu Nam `) ;
5 : Writeln (` Thu Sau `) ;
6 : Writeln (` Thu Bay `) ;
End ;
Readln ;
END .
C1-5
Uses Crt ;
Var SBD : Integer;
Van , Toan , Ngoaingu , Tongdiem : Real ;
BEGIN
Clrscr ;
Write (` So bao danh : `) ; Readln( SBD ) ;
Write (` Diem toan : `) ; Readln( Toan ) ;
Write (` Diem ngoai ngu : `) ; Readln( Ngoaingu ) ;
Write (` Diem van : `) ; Readln ( Van ) ;
Tongdiem := Toan + Van + Ngoaingu ;
Clrscr ;
Writeln (` Phieu Bao Diem `) ;
Writeln (` So bao danh : `, SBD ) ;
Writeln (` Diem van : `, Van ) ;
Writeln (` Diem toan : `, Toan ) ;
Writeln (` Diem ngoai ngu : `, Ngoaingu) ;
Writeln (` Tong diem : `, Tongdiem) ;
If Tongdiem >= 15 Then
Writeln(` Ban da trung tuyen `)
Else
Writeln(` Ban khong trung tuyen `) ;
Readln ;
END .
C1 -6

Uses Crt ;
Var
a , b , T : Real ;
Pt : Char ;
BEGIN
Clrscr ;
Write