Page 15 - 6263

const // оголошення констант
a1=5; // константа
s1='Hello world!'; // константа
a2:real=2.5; // типізована константа
ar1: array[0..4] of integer=(1,2,3,4,5); // константа-
масив
ar2: array[0..1,0..2] of integer=((1,2,3),(4,5,6)); //
константа-масив
set1=[blue, green]; // константа-множина

var // оголошення змінних
i:byte; // типу байт
k,n: integer; // цілого типу
x,y: real; // дійсного типу
c: char; // символьного типу
b: boolean; // булевого типу
s2: string; // рядкового типу
s3: string[10]; // рядкового типу
color1: color; // типу color (див. вище)
ar3: array[0..4] of integer; // масив цілих
ar4: array[0..1,0..2] of integer; // двовимірний масив
цілих
ar5: array of real; // відкритий масив дійсних
set2:set of color; // множина елементів типу color
set3:set of 1..100; // множина цілих від 1 до 100
file1: file of persona; // файл даних типу persona
file2: text; // текстовий файл
p: persona; // запис persona
line1: Line; // об'єкт класу Line

//----------------------------------------------------
// реалізації методів класу Line:
constructor Line.Create(x1,y1,x2,y2: real); //
конструктор установлює значення полів
15