Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false - в противном случае: трегольник со сторонами a, b, c являеться равнобедренным. (решить через файл)

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.