1
2
3
4
5
6
7
8
9
var a1,a2,a3:int64;
    i:integer;
begin
a1:=3;
a2:=9;
for i:=3 to 10000 do
begin
a3:=2*a1+a2;
if a3 mod 23 = 0 then writeln(a3,' ',i);
 ...

1
2
3
begin
writeln ('hello world');
end.

1
2
3
4
5
6
7
8
9
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;
 ...

1
2
3
4
5
6
7
8
9
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;
 ...

1
2
3
4
5
6
7
8
9
var a,i,k: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;
 ...

1
2
3
4
5
6
7
8
9
var a,i,k:integer;
begin
   k:=3;
   for i:=1 to 200 do
    begin
        if k mod 23=0 then write(i,' ');
        if i mod 2=1 then k:=(2*k+3) mod 23
                     else k:=2*k-3 mod 23;
        if k<0 then k:=23+k;
 ...

1
2
3
4
5
6
7
8
9
var a,i,k:integer;
begin
   k:=3;
   for i:=1 to 200 do
    begin
        if k mod 23=0 then write(i,' ');
        if i mod 2=1 then k:=(2*k+3) mod 23;
                     else k:=2*k-3 mod 23;
        if k<0 then k:=23+k;
 ...

1
2
3
4
5
6
7
8
9
var a,i,k:integer;
begin
   k:=3;
   for i:=1 to 200 do
    begin
        if k mod 23=0 then write(i,' ');
        if i mod 2=1 then k:=2*k+3
                     else k:=2*k-3;
        if k<0 then k:=23+k;
 ...

1
2
3
4
5
6
7
8
9
var a,i,k:integer;
begin
   k:=3;
   for i:=1 to 200 do
    begin
        if k mod 23=0 then write(i,' ');
        if i mod 2=1 then k:=2*k+3
                     else k:=2*k-3;
        if k<0 then k:=23-mod(k);
 ...

1
2
3
4
5
6
7
8
9
var a,i,k:integer;
begin
   k:=3;
   for i:=1 to 200 do
    begin
        if k mod 23=0 then write(i,' ');
        if i mod 2=1 then k:=2*k+3
                     else k:=2*k-3;
        if k<0 then k:=23-mod(k);
 ...

1
2
3
4
5
6
7
8
9
var a,i,k:integer;
begin
   k=3;
   for i:=1 to 200 do
    begin
        if k mod 23=0 then write(i,' ');
        if i mod 2=1 then k:=2*k+3
                     else k:=2*k-3;
        if k<0 then k:=23-mod(k);
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Figury; {IF}
 
USES Crt;
 
VAR
a, pole : REAL;
BEGIN {main - Figury}
ClrScr;
writeln('                PROGRAM POZWALA NA OBLICZENIE:               ');
 ...

1
2
3
4
5
6
7
8
program NumberMultiplyer;
 
begin;
 
var1 = interger
var2 = interger
 
begin;
 ...

1
2
3
4
5
6
7
8
9
program NumberMultiplyer;
 
var1 = interger
var2 = interger
 
begin;
 
Writeln 'Please Enter a Number';
readln (var1)
 ...

1
2
3
4
5
6
7
8
9
program NumberMultiplyer;
 
var1 = interger
var2 = interger
 
begin;
 
Writeln 'Please Enter a Number';
readln (var1)
 ...

1
2
3
4
5
6
7
8
9
program for23;
var i,n:integer; 
    s,y,z,e,x:real;
begin
readln(n);
readln(x);
readln(e);
s:=0;
y:=x;
 ...

1
2
3
4
5
6
7
8
9
program for23;
var i,n:integer; 
    s,y,z,e,x:real;
begin
readln(n);
readln(e);
readln(x);
s:=0;
y:=x;
 ...

1
2
3
4
5
6
7
8
9
var buf, s, result:string;
    i: integer;
begin
readln(s);
i :=0;
buf :=''; result:='';
while (i < length(s)) do
 begin
  i := i+1;
 ...

1
2
3
4
5
6
7
8
9
program for23;
var i,n:integer; 
    s,y,z,e,x:real;
begin
readln(n);
readln(e);
readln(x);
s:=0;
y:=x;
 ...

1
2
3
4
5
6
7
8
9
var buf, s, result:string;
    i: integer;
begin
readln(s);
i :=0;
buf :=''; result:='';
while (i < length(s)) do
 begin
  i := i+1;
 ...

1
2
3
4
5
6
7
8
9
program for23;
var i,n:integer; 
    s,y,z,e,x:real;
begin
readln(n);
readln(e);
readln(x);
s:=0;
i:=1;
 ...

1
2
3
4
5
6
7
8
9
var s,buf,result:string;
    i: integer;
begin
readln(s);
i :=0;
result :='';
while (i < length(s)) do
 begin
  i := i+1;
 ...

1
2
3
4
5
6
7
8
9
program for23;
var i,n:integer; 
    s,y,z,e,x:real;
begin
readln(n);
readln(e);
readln(x);
s:=0;
y:=x;
 ...

1
2
3
4
5
6
7
8
9
program for23;
var i,n:integer; 
    s,y,z,e,x:real;
begin
readln(n);
readln(e);
readln(x);
s:=0;
y:=x;
 ...

1
2
3
4
5
6
7
8
9
program for23;
var i,n:integer; 
    s,y,z,e,x:real;
begin
readln(n);
readln(e);
readln(x);
s:=0;
y:=x;
 ...

1
2
3
4
5
6
7
8
9
program while27;
var i,n:integer; 
    s,y,z,e,x:real;
begin
readln(n);
readln(e);
readln(x);
s:=0;
y:=x;
 ...

1
2
3
4
5
6
7
8
9
program while27;
var i,n:integer; 
    s,y,z,e,x:real;
begin
readln(n);
readln(e);
readln(x);
s:=0;
y:=x;
 ...

1
2
3
4
5
6
7
8
9
{type m=array[1..1000000000] of int64;}
var i, a1, a2, a3:longint;
begin 
a1:=3;
a2:=9;
for i:=3 to 1000000000 do
begin
a3:=2*a1+a2;
if a3 mod 23 = 0 then writeln(a3,' ',i);
 ...

1
2
3
4
5
6
7
8
9
type m=array[1..1000000000] of int64;
var x:m;
    i:longint;
begin 
x[1]:=3;
x[2]:=9;
for i:=3 to 1000000000 do
begin
x[i]:=2*x[i-2]+x[i-1];
 ...

1
2
3
4
5
6
7
8
9
type m=array[1..10000] of int64;
var x:m;
    i:integer;
begin 
x[1]:=3;
x[2]:=9;
for i:=3 to 10000 do
begin
x[i]:=2*x[i-2]+x[i-1];
 ...