1
2
3
4
5
6
7
8
9
var
i,x,c,d:longint;
 
begin
assign (input,'sum.in');
assign(output,'sum.out');
reset(input);
rewrite(output);
read(input,x);
 ...

1
2
3
4
5
6
7
8
9
Program Lesson9_Program3;
Uses Crt;
Var t : Text;
          s : String;
 
Begin
Assign(t,'C:\ABC.DEF');
{$I-}   { disable i/o error checking }
Reset(t);
 ...

1
2
3
4
5
6
7
8
9
program px2(input,output);
var
 n,i,j,l,maxj,s,sum,temp1,k : integer; an : array [1..100000] of integer; flag : boolean;
begin
 readln(n);
 for l:= 1 to n do read(an[l]); readln;
 j:=n; flag:=false;maxj:=n;
 while (j>=3) and (not flag) do
 begin
 ...

1
2
3
4
5
6
7
8
9
program px2(input,output);
var
 n,i,j,l,maxj,s,sum,temp1,k : integer; an : array [1..100000] of integer; flag : boolean;
begin
 readln(n);
 for l:= 1 to n do read(an[l]); readln;
 j:=n; flag:=false;maxj:=n;
 while (j>=3) and (not flag) do
 begin
 ...

1
2
3
4
5
6
7
8
9
program px1(input,output);
var
 an : array [1..100000] of integer;
 n, i,j,k,maxj,sum,s,temp1,temp2 : integer;
begin
readln(n);
for i:=1 to n do read(an[i]); readln;
maxj:=0;
for i:=1 to n-2 do
 ...

1
2
3
4
5
6
7
8
9
program px1(input,output);
var
 an : array [1..100000] of integer;
 n, i,j,k,maxj,sum,s,temp1,temp2 : integer;
begin
readln(n);
for i:=1 to n do read(an[i]); readln;
maxj:=0;
for i:=1 to n-2 do
 ...

1
2
3
4
5
6
7
8
9
program px1(input,output);
var
 an : array [1..100000] of integer;
 n, i,j,k,maxj,sum,s,temp1,temp2 : integer;
begin
readln(n);
for i:=1 to n do read(an[i]); readln;
maxj:=0;
for i:=1 to n-2 do
 ...

1
2
3
4
5
6
7
8
9
program px1(input,output);
var
 an : array [1..100000] of integer;
 n, i,j,k,maxj,sum,s,temp1,temp2 : integer;
begin
readln(n);
for i:=1 to n do read(an[i]); readln;
maxj:=0;
for i:=1 to n-2 do
 ...

1
2
3
4
5
6
7
8
9
program px1(input,output);
var
 an : array [1..100000] of integer;
 n, i,j,k,maxj,sum,s,temp1,temp2 : integer;
begin
readln(n);
for i:=1 to n do read(an[i]); readln;
maxj:=0;
for i:=1 to n-2 do
 ...

1
2
3
4
5
6
7
8
9
(*
-----------------------------------------------------
Author   : DarkCoderSc
From     : France
Mail     : arkCoderSc@Unremote.org>DarkCoderSc@Unremote.org
----------------------------------------------------
Comunity : Http://www.opensc.ws/
----------------------------------------------------
Require Registry.pas , Classes , Sysutils to be add in uses
 ...

1
2
3
4
5
6
7
8
9
program stage25;
const
a = 4;
b = 12;
c = 99;
d = 2099;
var
e, f, g, i : integer;
h : real;
 ...

1
2
3
4
5
6
7
8
9
program stage25;
uses wincrt;
const
a = 4;
b = 12;
c = 99;
d = 2099;
var
e, f, g, i : integer;
 ...

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
program write;
{$APPTYPE CONSOLE}
uses SysUtils;
 
 
var
  CurrentFile : TextFile;
  Filename, TextString : String;
  Count : Integer;
 ...

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
{$Q-}
var
a, b, c:shortint; {короткое целое со знаком}
begin
a:=102;
b:=54;
c:=a+b;
writeln (c);
end.

1
2
3
4
5
6
7
8
program a;
var x, y:longint;
r: real;
Begin
  readln(x,y);
  r:=(exp(3*ln(x))+exp(3*ln(y)))/2;
  writeln(r:3:2);
End.

1
2
3
4
5
6
7
8
program a;
var x, y:longint;
r: real;
Begin
  readln(x,y);
  r:=(exp(3*ln(x))+exp(3*ln(y)))/2;
  writeln(r:3:0);
End.

1
2
3
4
5
6
7
8
program a;
var x, y:integer;
r: real;
Begin
  readln(x,y);
  r:=(exp(3*ln(x))+exp(3*ln(y)))/2;
  writeln(r);
End.

1
2
3
4
5
6
7
8
program a;
var x, y:integer;
r: real;
Begin
  readln(x,y);
  r:=((exp(3*ln(x)))+(exp(3*ln(y)))/2;
  writeln(r);
End.

1
2
3
4
5
6
7
8
program a;
var x, y:integer;
r: real;
Begin
  readln(x,y);
  r:=((exp(3*ln(x))+(exp(3*ln(y)))/2;
  writeln(r);
End.

1
2
3
4
5
6
7
var x, y:integer;
r: real;
Begin
  readln(x,y);
  r:=((exp(3*ln(x))+(exp(3*ln(y)))/2;
  writeln(r);
End.

1
2
3
4
5
6
7
8
9
program SCSProject;
 
 
 
var
      A, Hmax ,Hmin, L, Cn : real;
      wName : String;
      Tc, Tp, Qp, wi, D,
      y , De, TC1, TC2, TC3,
 ...

1
2
3
4
5
6
7
8
9
program SCSProject;
 
uses
   Math;
 
var
      A, Hmax ,Hmin, L, Cn : real;
      wName : String;
      Tc, Tp, Qp, wi, D,
 ...

1
2
3
4
5
6
7
8
9
program SCSProject;
 
uses
  SysUtils,
  Math;
 
var
      A, Hmax ,Hmin, L, Cn : real;
      wName : String;
 ...

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

1
2
3
4
5
6
var 
i: integer
begin
for i:=(a*a*a) to do b
writeln(a)
end.

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
 program Queens;
   const N=8;
   type Index=1..N;
        Rasstanovka=array [Index] of 0..N;
   var X:Rasstanovka;
       Count:word;
   function P(var X:Rasstanovka;k,y:Index):boolean;
     var i:Index;
   begin
 ...

1
2
3
4
5
6
7
8
9
Program M_POWER;
 var a, b, c, b1, c1: array[ 1..100, 1..100 ] of integer;
     Ia, i, j, k, n: integer;
begin
 readln( Ia );                                          { Количество строк }
 for i:= 1 to Ia do
  begin 
   for j:= 1 to Ia do
    read( a[ i, j ] );
 ...