1
2
3
4
5
6
7
8
9
program stdalone;
 
type
   mat96 = array[1..32,1..3] of real;
   vecb32 = array[1..32] of boolean;
   vec32 = array[1..32] of real;
   vec16 = array[1..16] of real;
   vec8 = array[1..8] of real;
   vec3 = array[1..3] of real;
 ...

1
2
3
4
5
6
7
8
9
type m=array[1..10000] of integer;
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];
 ...

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

1
2
3
4
5
6
7
8
9
using System;
 
namespace Tibia.Util
{
    /// <summary>
    /// Helper methods for reading memory.
    /// </summary>
    public static class Memory
    {
 ...

1
2
3
4
5
6
7
8
9
program HelloWorld;
 var
 stringin: string;
begin
writeln('Hello world!');
readln(stringin);
writeln(stringin);
readln;
end.

1
2
3
4
5
6
program HelloWorld;
 
begin
writeln('Hello world!');
readln;
end.

1
2
3
4
5
6
7
8
9
var
i,j,a,b,pom,n:integer;
begin
readln(n);
for i:=1 to n do
        begin
        pom:=1;
        readln(a,b);
        if b=0 then writeln(1);
 ...

1
2
3
4
5
6
7
8
9
var
i,j,a,b,pom,n:integer;
begin
readln(n);
for i:=1 to n do
        begin
        pom:=1;
        readln(a,b);
        if b=0 then writeln(1);
 ...

1
2
3
4
5
6
7
8
9
var
i,j,a,b,pom,n:integer;
begin
readln(n);
for i:=1 to n do
        begin
        pom:=1;
        readln(a,b);
        if b=0 tken writeln(1);
 ...

1
2
3
4
5
6
7
8
9
var
i,j,a,b,pom,n:integer;
begin
readln(n);
for i:=1 to n do
        begin
        pom:=1;
        readln(a,b);
        for i:=1 to b do
 ...

1
2
3
4
5
6
7
8
9
var n,nprint,ntotal : longint;
    diagr,c,diagl : array [-30..30] of integer;
    prans : array [-30..30] of longint;
procedure print;
var j:integer;
begin
        ntotal:=ntotal+1;
        if ntotal>3 then exit;
        for j:=1 to n-1 do
 ...

1
2
3
4
5
6
7
8
9
var n,nprint,ntotal : longint;
    diagr,c,diagl : array [-30..30] of integer;
    prans : array [-30..30] of longint;
procedure print;
var j:integer;
begin
        ntotal:=ntotal+1;
        if ntotal>3 then exit;
        for j:=1 to n-1 do
 ...

1
2
3
4
5
6
7
8
9
program pola3;
var
n,k,i: integer;
begin
readln(n, k);
for i:=1 to n do
begin
if (i mod k = 0) and (i<>n) then write('* ')
else if (i mod k = 0) and (i=n) then write('*')
 ...

1
2
3
4
5
6
7
8
9
const n=13;
var a:array[1..n]of integer;
    b:array[1..n]of byte;
    c:array[2..2*n]of byte;
    d:array[1-n..n-1]of byte;
    ans,m:longint;
 
procedure print;
var i:integer;
 ...

1
2
3
4
5
6
7
8
9
const n=13;
var a:array[1..n]of integer;
    b:array[1..n]of byte;
    c:array[2..2*n]of byte;
    d:array[1-n..n-1]of byte;
    ans,m:longint;
 
procedure print;
var i:integer;
 ...

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of longint;
var x:massiv;
    i,n:longint;
begin
readln(n);
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i],' ');

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of longint;
var x:massiv;
    i,n:longint;
begin
readln(n);
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i],' ');

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of longint;
var x:massiv;
    i,n:longint;
begin
readln(n);
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i],' ');

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of longint;
var x:massiv;
    i,n:longint;
begin
readln(n);
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i]);

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of longint;
var x:massiv;
    i,n:longint;
begin
readln(n);
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i]);

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of real;
var x:massiv;
    i,n:longint;
begin
readln(n);
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i]);

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of real;
var x:massiv;
    i,n:longint;
begin
readln(n);
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i]);

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of real;
var x:massiv;
    i,n:integer;
begin
readln(n);
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i]);

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of real;
var x:massiv;
    i,n:integer;
begin
readln(n);
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i]);

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of real;
var x:massiv;
    i,n:integer;
begin
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=1 to n-1 do write(x[i]);
end.

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of real;
var x:massiv;
    i,n:integer;
begin
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i]);
end.

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of real;
var x:massiv;
    i,n:integer;
begin
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i]);
end.

1
2
3
4
5
6
7
8
9
program noname;
type massiv=array[1..35] of real;
var x:massiv;
    i,n:integer;
begin
for i:=1 to n read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 write(x[i]);
end.

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

1
2
3
4
5
6
7
var
    x1,x2,y1,y2,jarak : integer;
begin
    readln(x1,y1,x2,y2);
    jarak := ABS(x1-x2)+ABS(y1-y2);
    writeln(jarak);
end.