Код не проходит тестирование - Free Pascal

Формулировка задачи:

Приветствую всех! Имеется такая задача :

Однажды, посетив магазин канцелярских товаров, Вася купил X карандашей, Y ручек и Z фломастеров. Известно, что цена ручки на 2 рубля больше цены карандаша и на 7 рублей меньше цены фломастера. Также известно, что стоимость карандаша составляет 3 рубля. Требуется определить общую стоимость покупки.

Входные данные

В единственной строке входного файла INPUT.TXT записаны три натуральных числа X, Y и Z через пробел, каждое из которых не превышает 10^9.

Выходные данные

В выходной файл OUTPUT.TXT выведите одно целое число – стоимость покупки в рублях.

Из условия ясно , что цена карандаша будет 3 , ручки 5 , фломастера 12 . Я написал программу для решения. Программа проходит до 9 теста и на нем проваливается . Помогите определить , что не так ?

                    Листинг программы
                
 
                        
                          
                    
var a , b , c : integer; { а - количество карандашей , b - количество ручек , с - количество фломастеров }
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
read(a,b,c);
write( (a*3) + (b*5) + (c * 12) );   
end.

p.s Есть ли какие нибудь статьи по поводу того , как красиво оформлять код на Паскале ? Т.е количество отступов и пр. Заранее спасибо всем.

Решение задачи: «Код не проходит тестирование»

Листинг программы

var
  a, b, c: longint;
begin
  a := 999999999;
  b := a;
  c := a;
  writeln(a * 3 + b * 5 + c * 12);
end.

Объяснение кода листинга программы

Объявлены три переменные типа longint: a, b, c.
Значение переменной a установлено в 999999999.
Значение переменной b установлено в значение переменной a.
Значение переменной c установлено в значение переменной a.
Выполняется операция умножения и результат записывается в переменную writeln.
Значение переменной writeln выводится на экран.