Выполнить нужно в паскале, кто может

Программы, предназначенные для выполнения пользователем различных работ:
2. Прикладные программы
  
Программа, которая используется для написания книг, статей, позволяющая исправлять ошибки и оформлять в том виде, как хочет пользователь: 
1. Текстовый редактор
 
Программа – это: 
2. Описание того, как и в какой последовательности компьютер должен обрабатывать информацию (изложенное на языке программирования)
 
Графический интерфейс – это: 
1. Информация на экран выводится в графическом режиме (немного не по-русски, но правда)
 
К какому типу программного обеспечения относятся игры:
2. Прикладное программное обеспечение (есть системное и прикладное ПО. Системное занимается тем, чтобы компьютер работал как единое целое, прикладное выполняет задачи пользователя)
 
Какая из перечисленных функций НЕ относится к функциям операционной системы?
4. Позволяет вводить и редактировать текстовые, графические и другие данные (это функции соответствующих редакторов)

function isLucky(a: integer): boolean;
var s: string;
begin  
    str(a, s);  
    while length(s) < 6 do s := '0' + s;  
    isLucky := ord(s[1]) + ord(s[2]) + ord(s[3]) = ord(s[4]) + ord(s[5]) + ord(s[6])
end;
var 
    sTicket: string;    
    iTicket, i, err, sum: longint;
begin  
    write('Введите Ваш номер билета: ');  
    read(sTicket);  
    val(sTicket, iTicket, err);  
    for i := 1 to iTicket do    
        if isLucky(i) then inc(sum);  
    writeln('Выдано ', sum, ' счастливых билетов');  
    writeln('Осталось выдать ', 55251 - sum, ' счастливых билетов')
end.