1
2
3
4
5
6
7
8
9
var
al:char;
ab,bb,ac:string;
ar:array[1..100,1..100] of char;
s,r,z,i,j,k:integer;
aaa:boolean;
procedure f(x,y:integer;ab:string);
var
i:longint;
 ...

1
2
3
4
5
6
7
8
9
var a,b : integer;
 
begin
 
read(a);
read(b);
write(a + b);
 
end.

1
2
3
4
5
6
7
8
9
var a,b : integer;
 
begin
 
read(a);
read(b);
write(a + b);
 
end.

1
2
3
4
5
6
7
8
var a,b : integer;
 
begin
 
read(a);
read(b);
 
end.

1
2
3
4
5
6
7
8
9
var
al:char;
ab,bb,ac:string;
ar:array[1..100,1..100] of char;
s,r,n,i,j,k:integer;
aaa:boolean;
procedure f(x,y:integer;ab:string);
var
i:longint;
 ...

1
2
3
4
5
6
7
8
var a,b : integer;
 
begin
 
read(a);
read(b);
 
end.

1
2
3
4
5
6
7
8
9
var
al:char;
ab,bb,ac:string;
ar:array[1..100,1..100] of char;
s,r,n,i,j,k:integer;
aaa:boolean;
procedure f(x,y:integer;ab:string);
var
i:longint;
 ...

1
2
3
4
5
6
7
8
9
var
al:char;
ab,bb,ac:string;
ar:array[1..100,1..100] of char;
m,n,i,j,k:integer;
aaa:boolean;
procedure f(x,y:integer;ab:string);
var
i:longint;
 ...

1
2
3
4
5
6
7
8
9
Program Pzim ;
const pi=3.14;
var x, gra:real;
 
Function rad(grad:real):real;
Begin
        rad:=grad*pi;
end;    
         
 ...

1
2
3
4
5
6
7
8
9
var
        a,b:array[1..1000] of integer;
        pom,i,j,t:INTEGER;
BEGIN
        readln(t);
        for i:=1 to t do
                readln(a[i],b[i]);
        for i:=1 to t do
        begin
 ...

1
2
3
4
5
6
7
8
9
var
        a,b:array[1..1000] of integer;
        pom,i,j,t:INTEGER;
BEGIN
        readln(t);
        for i:=1 to t do
                readln(a[i],b[i]);
        for i:=1 to t do
        begin
 ...

1
2
3
4
5
6
7
8
9
var
        a,b:array[1..1000] of integer;
        pom,i,j,t:INTEGER;
BEGIN
        readln(t);
        for i:=1 to to do
                readln(a[i],b[i]);
        for i:=1 to t do
        begin
 ...

1
2
3
4
5
program asdcv;
begin
writeln('hello! This program is created in online app');
readln;
end.

1
2
3
4
5
program asdcv;
begin
writeln("hello! This program is created in online app))");
readln;
end.

1
program pro8 (input,output);

1
2
3
4
5
6
7
8
9
var
ar:array[1..100,1..100] of char;
ac,aa,ab:string;
al,bb:char;
s,r,k,a,b,c,i,j,m,x,y,z:longint;
aaa:boolean;
procedure f(x,y:longint;ab:string);
begin
if r-y>=k-1 then begin                    {kiri ke kanan}
 ...

1
2
3
4
5
6
7
8
9
var
ar:array[1..100,1..100] of char;
ac,aa,ab:string;
al,bb:char;
s,r,k,a,b,c,i,j,m,x,y,z:longint;
aaa:boolean;
procedure f(x,y:longint;ab:string);
begin
if r-y>=k-1 then begin                    {kiri ke kanan}
 ...

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 111 do
begin
a3:=2*a1+a2;
if a3 mod 23 = 0 then writeln(a3,' ',i);
 ...

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:               ');
 ...