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

Question

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

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 f:text;
 a,b,c:real;
begin
 assign(f,'text.txt');
 reset(f);
 read(f,a);
 read(f,b);
 read(f,c);
 close(f);
 if (a=b) or (b=c) or (a=c) then writeln('True') else writeln('False');
end.

Значения в файле text.txt:
1 2 1
Пример вывода:
True

Comments

Спасибо