ANTICHAT — форум по информационной безопасности, OSINT и технологиям

type
  MyFormat=record
    Len:WORD;
    Str:Array of byte;
  end;  

Procedure SaveF(S:String);
  var
    MyFile:THandle;
    re:longword;
    Sav:MyFormat;
  begin
    MyFile:=CreateFile('log.bin', $40000000, 2, nil, 2, 128, 0);
    sav.Len:=Length(s);
    SetLength(sav.Str,sav.Len);
    CopyMemory(@sav.Str[0], @s[1], sav.Len);
    WriteFile(MyFile, sav,sav.len+2, Re, nil);
    CloseHandle(MyFile);
  end;

Function ReadF:string;
  var
    MyFile:THandle;
    re:longword;
    Sav:MyFormat;
  begin
    MyFile:=CreateFile('log.bin', GENERIC_READ ,FILE_SHARE_READ, nil, OPEN_EXISTING,0, 0);
    ReadFile(MyFile, sav,2, Re, nil);
    SetLength(sav.Str,sav.len);
    ReadFile(MyFile, sav.Str[0], sav.len, re, nil);
    CloseHandle(MyFile);
    SetString(Result, PChar(@sav.Str[0]),sav.len);
  end;

program paralel;
var x11,x12,y11,y12,x21,x22,y21,y22:integer;
    a1,b1,a2,b2:integer;
begin
  readln (x11,y11,x12,y12,x21,y21,x22,y22);
  a1:=y11-y12;
  a2:=y21-y22;
  b1:=x12-x11;
  b2:=x22-x21;
  if (A1*B2)=(A2*B1) then
    writeln ('yes')
  else
    writeln ('no');
end.