Вопрос по информатике:

Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false — в противном

program zz1;var a, b, c: integer; // задаем переменные целого типа f1: text; // задаем переменную текстового типа для работы с файломbegin assign(f1, \'input.txt\'); // связываем переменную текстового типа с файлом reset(f1); // открываем файл для чтения read(f1, a); // читаем первую сторону треугольника из файла read(f1, b); // читаем вторую сторону треугольника из файла read(f1, c); // читаем третью сторону треугольника из файла if (a = b) or (a = c) or (b = c) then // проверяем треугольник writeln(\' true \') else write(\' false \'); // выводим ответ close(f1); // закрываем файлend.