Нужно сократить программу

[email protected] в категроии Информатика, вопрос открыт 09.05.2018 в 05:53

uses crt;
var a,b,c:longint;
begin
for a:= 100 to 999 do
for b:= 100 to 999 do
for c:= 100 to 999 do
if (a*a-b*b-c*c=a-b-c) and
((a mod 10)<>(a div 100))and
((a mod 10)<> ((a mod 100)div 10))and ((a div 100)<> ((a mod 100) div 10))and
((b mod 10)<>(b div 100))and
((b mod 10)<> ((b mod 100)div 10))and ((b div 100)<> ((b mod 100) div 10))and
((c mod 10)<>(c div 100))and
((c mod 10)<> ((c mod 100)div 10))and ((c div 100)<> ((c mod 100) div 10)) then
writeln(a,' ' ,b, ' ',c);
end.