fork download

copy

program q1;
var k,x,y,i,n:integer;
    s:longint;
begin
 
   readln(n);
   readln(a);
 
      x:=a;
      y:=0;
 
      for i:=2 to n do begin
      readln(k);
 
       begin
       if (k>y) and (k<x) then 
       y:=k;
       end;
 
        begin
        if (k>x) then 
        x:=k;
        end;
 
         begin
         x*y mod 26 <> 0 tnen
         s:=x*y;
         end;
 
       end; 
 
 
 
    writeln(s);
 
 
end.

Free Pascal Compiler version 2.6.4+dfsg-6 [2015/05/31] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Linux for i386
Compiling prog.pas
prog.pas(7,12) Error: Identifier not found "a"
prog.pas(9,11) Error: Identifier not found "a"
prog.pas(26,26) Error: Illegal expression
prog.pas(26,26) Fatal: Syntax error, ";" expected but "identifier TNEN" 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