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 ] );
 ...

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 ] );
 ...

1
2
3
4
5
6
7
8
9
Program M_POWER;
 var a, b, c, b1, c1: array[ 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 ] );
 ...

1
2
3
4
5
6
7
8
9
program cntprim (input , output);
    var N , p , i , s : integer;
        a : array [1..500000] of integer;
 
  begin
   readln(N);
   s := 0;
   for i := 1 to N do
    a[i] := i;
 ...

1
2
3
4
5
6
7
8
9
program spanzuratoarea;
Var u,v:array[1..25] of char;
       lit:char;
C,n,p,i:integer;
OK: boolean;
Begin
P:=0;
Write ('introduceti cuvantul: ');
While not eoln do begin 
 ...

1
2
3
4
5
6
7
8
9
program spanzuratoarea;
Var u,v:array[1..25] of char;
       lit:char;
C,n,p,i:integer;
OK: boolean;
Begin
P:=0;
Write ('introduceti cuvantul: ');
While not eoln do begin 
 ...

1
2
3
4
5
6
7
8
9
program spanzuratoarea;
Var u,v:array[1..25] of char;
       lit:char;
C,n,p,i:integer;
OK: boolean
Begin
P:=0;
Write ('introduceti cuvantul: ');
While not eoln do begin 
 ...

1
2
3
4
5
6
7
8
9
program spanzuratoarea;
Uses crt;
Var u,v:array[1..25] of char;
       lit:char;
C,n,p,i:integer;
OK: boolean
Begin
P:=0;
Write ('introduceti cuvantul: ');
 ...

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;
 i, j, Ia, n, k, l, ix, jx: integer;
 
begin
 readln( Ia );
 for i:= 1 to Ia do
  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;
 i, j, Ia, n, k, l, ix, jx: integer;
 
begin
 readln( Ia );
 for i:= 1 to Ia do
  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;
 i, j, Ia, n, k, l: integer;
 
begin
 readln( Ia );
 for i:= 1 to Ia do
  begin
 ...

1
2
3
4
5
6
7
8
9
Program M_power;
var
 a, b, c: array [ 1..100, 1..100 ] of integer;
 i, j, Ia, n, k, l: integer;
 
begin
 readln( Ia );
 for i:= 1 to Ia do
  begin
 ...

1
2
3
4
5
6
7
8
9
5Program M_power;
var
 a, b, c: array [ 1..100, 1..100 ] of integer;
 i, j, Ia, n, k, l: integer;
 
begin
 readln( Ia );
 for i:= 1 to Ia do
  begin
 ...

1
2
3
4
5
6
7
8
9
5Program M_power;
var
 a, b, c: array [ 1..100, 1..100 ] of integer;
 i, j, Ia, n, k, l: integer;
 
begin
 readln( Ia );
 for i:= 1 to Ia do
  begin
 ...

1
2
3
4
5
6
7
8
9
Program M_power;
var
 a, b, c: array [ 1..100, 1..100 ] of integer;
 i, j, Ia, n, k, l: integer;
 
begin
 readln( Ia );
 for i:= 1 to Ia do
  begin
 ...

1
2
3
4
5
6
7
8
9
Program M_power;
var
 a, b, c: array [ 1..100, 1..100 ] of integer;
 i, j, Ia, n, k, l: integer;
 
begin
 readln( Ia );
 for i:= 1 to Ia do
  begin
 ...

1
2
3
4
5
6
7
8
9
Program M_power;
var
 a, b, c: array [ 1..100, 1..100 ] of integer;
 i, j, Ia, n, k, l: integer;
 
begin
 readln( Ia );
 for i:= 1 to Ia do
  begin
 ...

1
2
3
4
5
6
7
8
9
Program M_power;
var
 a, b, c, ax, bx, cx: array [ 1..100, 1..100 ] of integer;
 i, j, Ia, n, k, ix, jx, kx: integer;
 Procedure M_mult( ax, bx: array [1..100, 1..100] of integer; var Iax: integer; var cx: array [1..100, 1..100] of integer);
   var ix, jx, kx: integer;
  begin
   for ix:= 1 to Iax do
     for jx:= 1 to Iax do
 ...

1
2
3
4
5
6
7
8
9
Program M_power;
var
 a, b, c, ax, bx, cx: array [ 1..100, 1..100 ] of integer;
 i, j, Ia, n, k, ix, jx, kx: integer;
 Procedure M_mult( ax, bx: array [1..100, 1..100] of integer; var Iax: integer; var cx: array [1..100, 1..100] of integer);
   var ix, jx, kx: integer;
  begin
   for ix:= 1 to Iax do
     for jx:= 1 to Iax do
 ...

1
2
3
4
5
6
7
8
9
Program M_power;
var
 a, b, c, ax, bx, cx: array [ 1..100, 1..100 ] of integer;
 i, j, Ia, n, k, ix, jx, kx: integer;
 Procedure M_mult( ax, bx: array [1..100, 1..100] of integer; var Iax: integer; var cx: array [1..100, 1..100] of integer);
   var ix, jx, kx: integer;
  begin
   for ix:= 1 to Ia do
     for jx:= 1 to Ia do
 ...

1
2
3
4
5
6
7
8
9
Program M_power;
var
 a, b, c, ax, bx, cx: array [ 1..100 ] of integer;
 i, j, Ia, n, k, ix, jx, kx: integer;
 Procedure M_mult( ax, bx: array [1..100, 1..100] of integer; var Iax: integer; var cx: array [1..100, 1..100] of integer);
   var ix, jx, kx: integer;
  begin
   for ix:= 1 to Ia do
     for jx:= 1 to Ia do
 ...

1
2
3
4
5
6
7
8
9
Program M_power;
var
 a, b, c, ax, bx, cx: array [ 1..100 ] of integer;
 i, j, Ia, n, k, ix, jx, kx: integer;
 Procedure M_mult( ax, bx: array [1..100, 1..100] of integer; Iax: integer; var cx: array [1..100, 1..100] of integer);
   var ix, jx, kx: integer;
  begin
   for ix:= 1 to Ia do
     for jx:= 1 to Ia do
 ...

1
2
3
4
5
6
7
8
9
Program M_power;
var
 a, b, c: array [ 1..100 ] of integer;
 i, j, Ia, n, k: integer;
 Procedure M_mult( ax, bx: array [1..100, 1..100] of integer; Iax: integer; var cx: array [1..100, 1..100] of integer);
   var ix, jx, kx: integer;
  begin
   for ix:= 1 to Ia do
     for jx:= 1 to Ia do
 ...

1
2
3
4
5
6
7
8
9
var a,i,b,s:longint;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
while not(eof(input)) do
begin
read(s);
 ...

1
2
3
4
5
6
7
8
9
 Program M_MULTIPLY;
 var
  i, j, k, Ia, Ja, Jb: integer;
  a, b, c: array [ 1..100, 1..100 ] of integer;
begin
  readln( Ia );
  readln( Ja );
  readln( Jb );
 
 ...

1
2
3
4
5
6
7
8
9
 Program M_MULTIPLY;
 var
  i, j, k, Ia, Ja, Jb: integer;
  a, b, c: array [ 1..100, 1..100 ] of integer;
begin
 readln( Ia );
 readln( Ja );
 readln( Jb );
 
 ...

1
2
3
4
5
6
7
8
9
 Program M_MULTIPLY;
 var
  i, j, k, Ia, Ja, Jb: integer;
  a, b, c: array [ 1..100, 1..100 ] of integer;
begin
 readln( Ia );
 readln( Ja );
 readln( Jb );
 
 ...

1
2
3
4
5
6
7
8
9
 Program M_MULTIPLY;
 var
  i, j, k, Ia, Ja, Jb: integer;
  a, b, c: array [ 1..100, 1..100 ] of integer;
begin
 readln( Ia );
 readln( Ja );
 readln( Jb );
 
 ...

1
2
3
4
5
6
7
8
9
 Program M_MULTIPLY;
 var
  i, j, k, Ia, Ja, Jb: integer;
  a, b, c: array [ 1..100, 1..100 ] of integer;
begin
 readln( Ia );
 readln( Ja );
 readln( Jb );
 
 ...

1
2
3
4
5
6
7
8
9
 Program M_MULTIPLY;
 var
  i, j, k, Ia, Ja, Jb: integer;
  a, b, c: array [ 1..100, 1..100 ] of integer;
begin
 readln( Ia );
 readln( Ja );
 readln( Jb );
 
 ...