Pascal
Dirancang oleh Prof. Nicklaus Wirth dari Technical University di Zurich, Switzerlandtahun 1971.Nama Pascal berasal dari Blaise Pascal, nama ahli matematika dan philosopi dari Perancis (abad 17). Pengembangan dari bahasa Algol 60 dan Algol W (turunan Algol 60). Memiliki beberapa versi, seperti : Turbo Pascal, Ms Pascal (Microsoft), Apple Pascal,UCSD (University of California at San Diego Pascal), dll. Turbo Pascal yang dibuat oleh Borland Inc. adalah versi yang paling bahasa pemrograman tingkat tinggi (high level language) dan terstruktur (Structured Programming language).
Kelebihan :banyak digunakan karena menggunakan Compiler untuk menterjemahkannya dan juga mengikuti standard bahasa Pascal yang dibuat oleh Nicklaus Wirth dan K. Jensen. Pascal merupakan 

• Tipe Data Standar, tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real, char, string,
• User defined Data Types, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar.
• Strongly-typed, programmer harus menentukan tipe data dari suatu variabel, dan variabel tersebut tidak dapat dipergunakan untuk menyimpan tipe data selain dari format yang ditentukan.
• Terstruktur, memiliki sintaks yang memungkinkan penulisan program dipecah menjadi fungsi-fungsi kecil (procedure danfunction) yang dapat dipergunakan berulang-ulang.
• Sederhana dan Ekspresif, memiliki struktur yang sederhana dan sangat mendekati bahasa manusia (bahasa Inggris) sehingga mudah dipelajari dan dipahami.

Kekurangan:

• Tidak fleksibel penggunaannya.
• Bahasa PASCAL juga merupakan bahasa yang digunakan sebagai standar bahasa pemrograman bagi tim nasional Olimpiade Komputer Indonesia (TOKI). Selain itu, Bahasa PASCAL masih digunakan dalam IOI (International Olympiad in Informatics).

Contoh cara membuat sebuah program dengan turbo pascal.

1.buka program pascal anda
2. dan ketikan kode di bawah ini

program biodata;
uses crt;
var
nama,alamat,jeniskelamin, statusperkawinan,tempattgllahir,agama,pekerjaan,goldarah:string;
umur:integer;
begin
textcolor(10);
clrscr;
WRITELN(' ');
writeln('             ISILAH BIODATA DI BAWAH INI DENGAN BENAR'); TEXTCOLOR(12);
writeln('===============================================================================');
TEXTCOLOR(10);
writeln( '                          BIODATA');
TEXTCOLOR(12);
writeln('===============================================================================');
write(' NAMA              : '); readln(nama);
write(' UMUR              : '); readln(umur) ;
write(' TEMPAT/TGL LAHIR  : '); readln(tempattgllahir);
write(' JENIS KELAMIN     : '); readln(jeniskelamin);
write(' ALAMAT            : '); readln(alamat);
write(' AGAMA             : '); readln(agama);
write(' STATUS PERNIKAHAN : '); readln(statusperkawinan);
write(' PEKERJAAN         : '); readln(pekerjaan);
writeln('===============================================================================');
textcolor(10);
  writeln('  PENGISIAN BIODATA SELESAI');
  TEXTCOLOR(12);
WRITELN('===============================================================================');
  TEXTCOLOR(10);
writeln('  INILAH DATA ANDA ');
textcolor(12);
writeln('==============================================================================='); TEXTCOLOR(10);
writeln('@ anda bernama ',nama,'.''   |@ umur anda ',umur,' TAHUN.');
writeln('@ tempat/tgl lahir anda ', tempattgllahir,'.');
writeln('@ anda berjenis kelamin ' ,jeniskelamin,'.');
writeln('@ anda tinggal di ' ,alamat,'.');
writeln('@ agama anda' ,agama,'.''     |@ status anda ',statusperkawinan,'.');
WRITELN('@ pekerjaan anda ',pekerjaan,'.'); TEXTCOLOR(12);
writeln('===============================================================================');
TEXTCOLOR(10);
WRITELN(' PASTIKAN DATA ANDA BENAR, BILA ANDA SUDAH YAKIN DATA ANDA BENAR TEKAN ENTER! ');
readkey;
readln;
end.