Модуль 3

Задание 6
program happiness;      
uses crt;
var i,j,k,x,y,z: integer;                      
    happytickets: longint;
    begin                      
    clrscr;
         happytickets:= -1; {считаем, что билета 000000 не существует}

         for i:= 0 to 9 do
          for j:= 0 to 9 do
           for k:= 0 to 9 do
            for x:= 0 to 9 do
             for y:= 0 to 9 do
              for z:= 0 to 9 do

               if i+j+k = x+y+z then inc(happytickets);

    Write('Счастливых билетов: ',happytickets);
    Writeln(' (это ',10000/happytickets:3:6,'% от общего числа всех билетов)');        
    Writeln;
    Readln;    
end.
program happiness-название программы, ключевое слово uses указывает программе, что необходимо подключить дополнительный внешний модуль (файл с описанием и определение различных функций). 
Crt является одним из стандартных модулей. В нем описаны и определены функции для работы с текстовой информацией на дисплее (изменение цвета текста, управление курсором и др.). 
var- раздел описания переменных,    begin - раздел операторов,
  clrscr-очистка экрана, happytickets:= -1; {считаем, что билета 000000 не существует}- <переменная>:=<выражение>,  for- оператор цикла, for _:=  _to _ do - цикл с параметром,

if __ then inc(happytickets)- оператор ветвления, i+j+k = x+y+z-логическое выражение, 

 Write-оператор вывода, ('Счастливых билетов: ',happytickets)- список вывода,  Writeln - оператор вывода,(' (это ',10000/happytickets:3:6,'% от общего числа всех билетов)')- список вывода,       Writeln-оператор вывода, Readln - оператор ввода  
end - конец.