Потому-что все будут видеть и читать мою страничку
Var
A, B, C, D: integer;
f1, f2: Text;
begin
Assign(f1, 'input.txt');
Reset(f1);
Assign(f2, 'output.txt');
Rewrite(f2);
while not Eof(f1) do
begin
Readln(f1, A, B, C, D);
if Abs(A - C) = Abs(B - D) then writeln(f2,'YES')
else writeln(f2,'NO')
end;
Close(f1);
Close(f2)
end.
Def.doc
1e.dat
defgh.ddd
ae123.def
555 16 вроде би посмотри в Googl
Можно рисовать в Paint просто что угодно или граффики в Exel