Простейшая задача - Free Pascal

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

Добрый день. Я новичок в этом деле и много еще не знаю. Нужно решить эту задачу, но сайт моего универа не хочет принимать мое решение (пишет ответ неверный). Пример ввода: 20 2 3 7 Пример вывода: 2+3+7=12 20-12=8 Мой алгоритм:

program p1;
var a,b,c,f,g,h:longint;
begin
g:=0;
h:=0;
writeln ('vvedite znacheniya');
read (a);
writeln ('vvedite');
read (b,c,f);
g:=b+c+f;
writeln (g);
h:=a-g;
writeln (h);
end.

В чем моя ошибка?

Решение задачи: «Простейшая задача»

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

var a, b, c, d: Integer;
begin
  Read(a, b, c, d);
  WriteLn(b,'+',c,'+',d,'=',b+c+d);
  WriteLn(a,'-',b+c+d,'=',a-b-c-d);
end.

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

В начале кода объявляются четыре переменные типа Integer: a, b, c и d.
Затем происходит чтение значений этих переменных с помощью функции Read.
Далее выводится на экран сумма значений переменных b, c и d с помощью функции WriteLn.
После этого выводится на экран разность между значением переменной a и суммой значений переменных b, c и d.