• 1 История
• 2 Реализации и диалекты
  • 2.1 UCSD Pascal
  • 2.2 Object Pascal
  • 2.3 Turbo Pascal и Object Pascal
  • 2.4 MidletPascal
  • 2.5 Современные реализации Pascal
    • 2.5.1 Free Pascal и GNU Pascal
    • 2.5.2 Delphi и Delphi.NET
    • 2.5.3 PascalABC.NET
    • 2.5.4 Pascal Next
• 3 Особенности языка
• 4 Стандарты
• 5 Синтаксис и языковые конструкции
  • 5.1 Hello, world!
  • 5.2 Типы данных
    • 5.2.1 Простые типы
    • 5.2.2 Множества
    • 5.2.3 Составные типы
    • 5.2.4 Строки
    • 5.2.5 Указатели
    • 5.2.6 Процедурный тип
  • 5.3 Операторы управления
  • 5.4 Процедуры и функции
    • 5.4.1 Стандартные математические функции и процедуры Паскаля
      • 5.4.1.1 Математические функции
      • 5.4.1.2 Математические процедуры
      • 5.4.1.3 Процедуры преобразования типов переменных
      • 5.4.1.4 Функции преобразования типов переменных
  • 5.5 Модули
    • 5.5.1 Структура
    • 5.5.2 Использование
    • 5.5.3 Компиляция и компоновка
    • 5.5.4 Загрузка и выгрузка модулей
  • 5.6 Объектно-ориентированное программирование
• 6 Примечания
• 7 Литература
• 8 Ссылки

program p;
begin
end.

program hello;
begin
  writeln('Hello, World!');  // оператор вывода строки 
end.

var { секция объявления переменных }
  r: Real;  { переменная вещественного типа }
  i: Integer;  { переменная целого типа }
  c: Char;  { переменная-символ }
  b: Boolean;  { логическая переменная }
  s: String; { переменная строки }
  t: Text; { переменная для объявления текстового файла }
  e: (apple, pear, banana, orange, lemon);  { переменная типа-перечисления }

var
  x: 1..10;
  y: 'a'..'z';
  z: pear..orange;

var
  set1: set of 1..10;
  set2: set of 'a'..'z';
  set3: set of pear..orange;

if i in [5..10] then { проверка на принадлежность элемента множеству }
...

if (i>=5) and (i<=10) then { проверка логическими условиями }
...

var { секция объявления переменных }
 d:set of char;
begin { начало блока }
 d:=['a','b']; 
...

type { секция объявления типов }
  x = Integer;
  y = x;
...

type { секция объявления типов }
  a = Array [1..10] of Integer;  { определение массива }
  b = record  { определение записи }
        x: Integer;
        y: Char;
      end;
  c = File of a;  { определение файла }

type
  CyrillicString = AnsiString(1251);
  CP866String = AnsiString(20866);

type
  a = ^b;
  b = record
        x: Integer;
        y: Char;
        z: a;
      end;
var
  pointer_to_b:a;

new(pointer_to_b); { выделение памяти указателю }

pointer_to_b^.x := 10; { разыменовывание указателя и обращение к полю записи }
pointer_to_b^.y := 'A';
pointer_to_b^.z := nil;
...
dispose(pointer_to_b); { освобождение памяти из-под указателя }

new(pointer_to_b);

with pointer_to_b^ do
begin
  x := 10;
  y := 'A';
  z := nil
end;
...
dispose(pointer_to_b);

type myfunc=function:string;

function func1:string;
begin
 func1:='func № 1'
end;

function func2:string;
begin
 func2:='func № 2'
end;

var fun:myfunc;
begin
 fun:=@func1;
 writeln(fun) {происходит вызов функции func1}
end.