Язык: PascalОшибка где то в присвоение, т. К на выходе все время получаю 0. Вопрос: В…

Язык: PascalОшибка где то в присвоение, т. К на выходе все время получаю 0. Вопрос: В чем же ошибка? -Program test; var a, b, c, d: integer; beginwriteln ('Enter A'); read (a); writeln ('Enter B'); read (b); writeln ('Enter C'); read (c); if (a