1
2
3
4
5
6
7
8
9
program lol(input,output);  
var a:array[1..1000000]of integer;var  b:array[1..1000000]of integer;var c:array[1..1000000] of integer; var  max2, max1, v, sum1, sum, max, d, f, h, l, j, n,x,i:integer;  
   
  
  
begin  
  readln(n);  
 for i:=1 to n do  
  begin  
 ...

1
2
3
4
5
6
7
8
9
program lol(input,output);  
var a:array[1..1000000]of integer;var  b:array[1..1000000]of integer;var c:array[1..1000000] of integer; var  max2, max1, v, sum1, sum, max, d, f, h, l, j, n,x,i:integer;  
   
  
  
begin  
  readln(n);  
 for i:=1 to n do  
  begin  
 ...

1
2
3
4
5
6
7
8
9
program lol(input,output);  
var a:array[1..1000000]of integer;var  b:array[1..1000000]of integer;var c:array[1..1000000] of integer; var  max2,max1, v, sum1, sum, max, d, f, h, l, j, n,x,i:integer;  
   
  
  
begin  
  readln(n);  
 for i:=1 to n do  
  begin  
 ...

1
2
3
4
5
6
7
8
9
var
a:array[0..5] of integer;
f:array[0..5,0..10000] of int64;
i,j,n:longint;
begin
a[1]:=1;
f[0,0]:=1;
A[2]:=5;
A[3]:=10;
 ...

1
2
3
4
5
6
7
8
9
program kugel;
const pi = 3.1416;
var radius, flache : real;
 
begin
        write ('wie gross ist der radius der kuegel in [cm]?'); readln (radius);
                flache := radius* radius* radius* pi;
                writeln ('die flache ist' , flache);
end.

1
2
3
4
5
6
7
8
9
program kugel;
const pi = 3.1416;
var radius, flache : real;
 
begin
        write ('wie gross ist der radius der kuegel in [cm]?'); readln (radius);
                flache := radius* radius* radius* pi;
                writeln ('die flache ist' , flache);
end.

1
2
3
4
5
6
7
8
9
program kugel;
const pi = 3.1416;
var radius, flache : real;
 
begin
        write ('wie gross ist der radius der kuegel in [cm]?'); readln (radius);
                flache := radius* radius* radius* pi;
                
writeln ('die flache ist' , flache);
 ...

1
2
3
4
5
6
7
8
9
program kugel;
const pi = 3.1416;
var radius, flache : real;
 
begin
        write ('wie gross ist der radius der kuegel in [cm]?'); readln (radius);
                flache := radius* radius* radius* pi
                
        writeln ('die flache ist' , flache);

1
2
3
4
5
6
7
8
9
program kugel;
const pi = 3.1416;
var radius, flache : real;
 
begin
        write ('wie gross ist der radius der kuegel in [cm]?') readln (radius);
                flache := radius* radius* radius* pi
                
        writeln ('die flache ist' , flache);
 ...

1
2
3
4
5
6
7
8
9
program kugel;
const pi = 3.1416;
var radius, flache;
 
begin
        write ('wie gross ist der radius der kuegel in [cm]?') readln (radius);
                flache := radius* radius* radius* pi
                
        writeln ('die flache ist' , flache);
 ...

1
2
3
4
5
6
7
8
program test;
var x: integer;
begin
  repeat
    readln(x);
    if x<>42 then writeln(x);
  until x=42
end.

1
2
3
4
5
6
7
8
9
var
t,i,j,l1,l2,c:integer;
a,b:string;
begin
readln(t);
 for i:=1 to t do
 begin
        l1:=0;
        l2:=0;
 ...

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

1
2
3
4
5
6
7
8
9
var
t,i,j,l1,l2,c:integer;
a,b:string;
begin
readln(t);
 for i:=1 to t do
 begin
        l1:=0;
        l2:=0;
 ...

1
2
3
4
5
6
7
8
9
var
j,t,i,j,l1,l2,c:integer;
a,b:string;
begin
readln(t);
 for i:=1 to t do
 begin
        l1:=0;
        l2:=0;
 ...

1
2
3
4
5
6
7
8
9
j,t,i,j,l1,l2,c:integer;
a,b:string;
begin
readln(t);
 for i:=1 to t do
 begin
        l1:=0;
        l2:=0;
        readln(a,b);
 ...

1
2
3
4
5
6
7
8
9
program kreis;
const pi = 3.1415;
var radius, umfang, flache : real;
begin
        write ('Der radius des kreises ist in [cm]?'); readln (radius);
        
                umfang := 2* pi* radius;
                flache := pi * radius* radius;
                
 ...

1
2
3
4
5
6
7
8
9
var s:string;
    stack:array[0..240] of char;
    i,j,n,e:longint;
    no:boolean;
Begin
Assign(input,'input.txt');
reset(input);
Assign(output,'output.txt');
rewrite(output);
 ...

1
2
3
4
5
6
7
8
9
var s:string;
    stack:array[0..240] of char;
    i,j,n,e:longint;
    no:boolean;
Begin
Assign(input,'input.txt');
reset(input);
Assign(output,'output.txt');
rewrite(output);
 ...

1
2
3
4
5
6
7
8
9
var s:string;
    stack:array[0..240] of char;
    i,j,n,e:longint;
    no:boolean;
Begin
Assign(input,'input.txt');
reset(input);
Assign(output,'output.txt');
rewrite(output);
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t,j : integer;
    a : array [0..100000] of integer;
 
begin
p := 0;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t,j : integer;
    a : array [0..100000] of integer;
 
begin
p := 0;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t,j : integer;
    a : array [0..100000] of integer;
 
begin
p := 0;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,i,j,t:integer;
    a: array[0..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:=1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,i,j,t:integer;
    a: array[0..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:=1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t,j : integer;
    a : array [0..100000] of integer;
 
begin
p := 0;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
Program figura;
var
v:array[-1..1000,-1..1000] of integer;
d,n,i,j,s,a,b,r,x,k:integer;
f1,f2:text;
begin
readln(d);
readln(n);
x:=0;
 ...

1
2
3
4
5
6
7
8
9
Program figura;
var
v:array[-1..1000,-1..1000] of integer;
d,n,i,j,s,a,b,r,x,k:integer;
f1,f2:text;
begin
assign(f1,'figura.in');
assign(f2,'figura.out');
reset(f1);
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t,j : integer;
    a : array [0..100000] of integer;
 
begin
p := 0;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t,j : integer;
    a : array [0..100000] of integer;
 
begin
p := 0;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...