fork(1) download

copy

(* Решение задачи "Координатные четверти" - Алексей Филатов, 10 класс *)
 
program ideone;
begin
	program p1;
 
var
  input, output: text;
  x1, y1, x2, y2, c1, c2: integer;
 
begin
  assign(input, 'input.txt');
  reset(input);
  assign(output, 'output.txt');
  rewrite(output);
  readln(input, x1);
  readln(input, y1);
  readln(input, x2);
  readln(input, y2);
  if (x1 > 0) and (y1 > 0) then c1 := 1;
  if (x1 < 0) and (y1 > 0) then c1 := 2;
  if (x1 < 0) and (y1 < 0) then c1 := 3;
  if (x1 > 0) and (y1 < 0) then c1 := 4;
  if (x2 > 0) and (y2 > 0) then c2 := 1;
  if (x2 < 0) and (y2 > 0) then c2 := 2;
  if (x2 < 0) and (y2 < 0) then c2 := 3;
  if (x2 > 0) and (y2 < 0) then c2 := 4;
  if c1 = c2 then write(output, 'YES')
  else write(output, 'NO');
  close(input);
  close(output);
end.
 
end.

Free Pascal Compiler version 2.6.4+dfsg-4 [2014/10/14] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Linux for i386
Compiling prog.pas
prog.pas(5,2) Error: Illegal expression
prog.pas(5,10) Fatal: Syntax error, ";" expected but "identifier P1" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty