fork download

copy

var a,i,k,p:integer;
begin
   k:=3;p:=9;
   for i:=3 to 200 do
    begin
        if i mod 2=1 then k:=(2*k+p) mod 23
                     else p:=(2*p+k) mod 23;
        if k<0 then k:=23+k;
        if p<0 then p:=23+p;
        if i mod 2=1 and k mod 23=0 then write(i,' ');
        if i mod 2=0 and p mod 23=0 then write(i,' ');
    end;
end.
 

Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(10,19) Error: Incompatible types: got "Boolean" expected "LongInt"
prog.pas(11,19) Error: Incompatible types: got "Boolean" expected "LongInt"
prog.pas(14,4) Fatal: There were 2 errors compiling module, stopping
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