Контрольная работа: Анализ входного файла программы и вывод результатов в выходной файл
xx:=xx+1;
end;
end;
If (oskolok[1].X = oskolok[3].X) then begin
If (oskolok[2].X<oskolok[1].X) then begin
xx:=xx+1;
end;
end;
{Ось паралельности ОУ1 по нижней стороне стола}
If (oskolok[1].Y = oskolok[2].Y) then begin
If (oskolok[3].Y>oskolok[1].Y) then begin
xx:=xx+1;
end;
end;
If (oskolok[2].Y = oskolok[3].Y) then begin
If (oskolok[1].Y>oskolok[1].Y) then begin
xx:=xx+1;
end;
end;
If (oskolok[1].Y = oskolok[3].Y) then begin
If (oskolok[2].Y>oskolok[1].Y) then begin
xx:=xx+1;
end;
end;
If (oskolok[1].Y = oskolok[2].Y) then begin
If (oskolok[3].Y<oskolok[1].Y) then begin
xx:=xx+1;
end;
end;