{ Название программы }

Program Prog1;

{ Раздел описания переменных. }

Var

  { i,x,r -переменные,ячейки памяти, хранилища, коробочки }

  i,x:Integer; { i,x - любое целое число. }

  r:Real; { r - любое число с дробной частью. }

// Теперь переменная f отвечает за действия с файлом data.txt

// Переменную f связали с файлом на диске data.txt

Assign(f,'data.txt');

// В переменную a занесли строку data.txt

a:='data.txt';

//  Имя файла хранится в переменной a

Assign(f,a);

Program First_program;

// Раздел описания переменных

var 

  i:Integer; // i - целочисленная переменная

  a,b,c:Integer; // Это ПЕРЕМЕННЫЕ

  f:Real; // Число с дробной частью (3.4 5.0 )

// Главная программа.

Begin

Program prog1;

// Раздел описания переменных

Var

  a,i:Integer; // Целые числа

  l:longint; // Длинное целое число

  b:char; // Символ

  s:String; // Строка (тот же массив, только из букв)

  c:array[1..100] of Integer; // Массив целых чисел

  f,fx,x:real; // Вкещественное число, дробное число, число с плавающей точкой

Program prog1;

var x:Real;

    y:Integer;

    fx:real;

Function MySqr (x:Real) : Real;

Begin

  MySqr := x*x;

end;

Program prog3;

var x:Real;

    y:Integer;

    fx:real;

Function MySqr (x:Real) : Real;

Begin

  MySqr := x*x;

end;

Program z1;

var

  i:Integer;

type

  Int=Integer; // Int - новый тип

  // ОПИСАНИЕ нового типа

  Human = Record // Human - новый тип (составной тип, сложный тип, запись, структура)

    a,b:Integer;