1
2
3
4
5
6
7
8
9
{ Simple remote exploit for all operating systems }
 
{ code by s1t3k. }
 
{ Usage: sploit [IP] [port] }
 
{ For example: sploit 192.168.0.1 21 }
 
program sploit;
 ...

1
2
3
4
5
program test;
 var i : integer; 
 begin
  for i := 1 to 100 do writeln(i);
 end.

1
2
3
4
5
program test;
 var i : integer; 
 begin
  for i = 1 to 100 do writeln(i);
 end.

1
2
3
4
5
program test;
 
 begin
  writeln('123')
 end.

1
2
3
4
BEGIN
writeln('123');
 
END

1
writeln('123');

1
2
3
4
5
6
7
8
begin
 
 
vriteln("podaj liczbe")
 
readln(Q);
readln(b);
writeln("suma=",a+b);

1
2
3
4
program Prueba;
begin
        writeLn ('Hola Mundo!!');
end.

1
2
3
4
program Prueba;
begin
        writeLn ("Hola Mundo!!");
end.

1
2
3
4
5
6
7
8
program srednia;
uses crt;
var suma,x,n,i:integer;
BEGIN
clrscr;
write('Podaj z ilu liczb:');
readln(n);
suma:=0;
 ...

1
2
3
4
5
6
7
8
program srednia;
uses crt;
var suma,x,n,i:integer;
BEGIN
clrscr;
write('Podaj z ilu liczb:');
readln(n);
suma:=0;
 ...

1
2
3
4
5
6
7
8
9
program test;
 
 var x:byte;
 
 begin
      readln(x);
      while x<>42 do
       begin
            writeln(x);
 ...

1
2
3
4
5
6
7
8
9
const
  maxn = 100;
 
var
  a, k : array[1..maxn] of integer;
  n, i, j, t : integer;
 
begin
  assign(input, 'input.txt'); reset(input);
 ...

1
2
3
4
5
6
7
8
var
a,b: integer
begin
 readln (a);
 readln (b);
writeln("suma=" , a+b);
 
end.

1
2
3
4
5
6
7
var x:integer;
var y:integer;
begin
readln(x);
readln(y);
writeln('suma=',x+y);
 end.

1
2
3
4
5
6
7
var x:integer;
var y:integer;
begin
readln(x);
readln(y);
writeln('suma=',x+y);
 end.

1
2
3
4
5
6
7
var x:integer;
var y:integer;
begin
readln(x);
readln(y);
writeln('suma=',x+y);
 end.

1
2
3
4
5
6
7
var
a,b: integer; 
begin
readln(a);
readln(b);
writeln('suma=',a+b);
end.

1
2
3
4
5
6
7
var x:integer;
var y:integer;
begin
readln(x);
readln(y);
writeln('suma=',x+y);
 end.

1
2
3
4
5
6
7
var
a,b: integer; 
begin
readln(a);
readln(b);
writeln('suma=',a+b);
end.

1
2
3
4
5
6
7
var x:integer;
var y:integer;
begin
readln(x);
readln(y);
writeln('suma=',x+y);
 end.

1
2
3
4
5
6
7
8
9
program test;
 
 var x:integer;
 var y:integer;
var z:integer;
 
 begin
      readln(x);
        readln(y);
 ...

1
2
3
4
5
6
7
8
9
program test;
 
 var x:integer;
 var y:integer;
var z:integer;
 
 begin
      readln(x);
        readln(y);
 ...

1
2
3
4
5
6
7
8
9
program test;
 
 var x:integer;
 var y:integer;
var z:integer;
 
 begin
      readln(x);
        readln(y)
 ...

1
2
3
4
5
6
7
8
9
program test;
 
 var x:integer;
 var y:integer;
var z:integer;
 
 begin
      readln(x);
        readln(y)
 ...

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

1
2
3
4
5
6
program test;
 begin
 
            writeln('hello');
    
 end.

1
2
3
4
5
6
7
8
9
program test;
 
 var x:byte;
 
 begin
 
            writeln(hello)
    
 end.

1
2
3
4
5
6
7
program test;
 
 begin
          
            readln(hello)
       end
 end.

1
2
3
4
5
6
7
var
b,a:inteqer;
begin
readln(a);readln(b);
writeln('suma=',a+b);
 
end.