1
2
3
4
5
6
7
8
9
program skata(input,output);
type list=array [1..10] of integer;
var
 ii,n : integer; r : list;
 
procedure merge(var a,b,c : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a : list;
 ...

1
2
3
4
5
6
7
8
9
program skata(input,output);
type list=array [1..10] of integer;
var
 ii,n : integer; r : list;
 
procedure merge(var a,b,c : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a : list;
 ...

1
2
3
4
5
6
7
8
9
program skata(input,output);
type list=array [1..10] of integer;
var
 ii,n : integer; r : list;
 
procedure merge(var a,b,c : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a : list;
 ...

1
2
3
4
5
6
7
8
9
program pr4;
var p,a,x:real;
i,n:integer;
 begin
a:=0;
repeat
writeln('enter a-(a < 1)');
readln(a);
if a>=1 then 
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii : integer;
 
procedure mergesort(var a,e : list;
fa, la : integer);
var b : list; i, mid : integer;
begin
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type=array [1..6] of integer;
var
 d,e : list; ii : integer;
 
procedure mergesort(var a,e : list;
fa, la : integer);
var b : list; i, mid : integer;
begin
 ...

1
2
3
4
5
6
7
8
9
Function calct(arg:real):real;
var 
p:real;
i,n:integer;
begin
p:=1.0;
n:=5;
for i:=1 to n do 
begin
 ...

1
2
3
4
5
6
7
8
9
program pr6;
var 
x,s:real;
n,k,i:integer;
mas:array [1..9] of real;
 
begin
n:=9;
s:=0;k:=0;
 ...

1
2
3
4
5
6
7
8
9
program pr6;
var 
x,s:real;
n,k,i:integer;
mas:array [1..9] of real;
 
begin
n:=9;
s:=0;k:=0;
 ...

1
2
3
4
5
6
7
8
9
program pr6;
var 
x,s:real;
n,k,i:integer;
mas:array [1..9] of real;
 
begin
n:=9;
s:=0;k:=0;
 ...

1
2
3
4
5
6
7
8
9
program pr6;
var 
x,s:real;
n,k,i:integer;
mas:array [1..9] of real;
 
begin
n:=9;
s:=0;k:=0;
 ...

1
2
3
4
5
6
7
8
9
program xpto;
Uses crt;
Type dados = record
       nome:string;
       disciplina:string;
       nota:integer;
      End;
Var
   aluno:array[1..20] of dados;
 ...

1
2
3
4
5
6
7
8
9
var
a:integer;
function suma(n:integer):integer;
var x:integer;
begin
readln(x);
 
if n>1 then suma:=suma(n-1)+x else suma:=x
end;
 ...

1
2
3
4
5
6
7
8
9
Program stor25;
var x:real;
n:byte;
 
function arcsin(x:real):real;
begin
arcsin:=arctan(x/sqrt(1-sqr(x)));
end;
 
 ...

1
2
3
4
5
6
7
8
9
program quiz;
var
   ilargest,inum1,inum2,icounter:integer;
   
begin
   icounter:=0;
   writeln('Please input the numbers.');
   repeat
    readln(inum1);
 ...

1
2
3
4
5
6
7
8
9
program quiz;
var
   ilargest,inum1,inum2,icounter:integer;
   
begin
   icounter:=0;
   writeln('Please input the numbers.');
   repeat
    readln(inum1);
 ...

1
2
3
4
5
6
7
8
9
program Simpleks;
{$APPTYPE CONSOLE}
const n=4;m=6;
type mass=array[1..n,1..m] of real;
var  k:mass;tr,i,b:integer; f1:text;
procedure vvod(var mas:mass);
var i,j:integer;
 begin
  for i:=1 to n do
 ...

1
2
3
4
5
6
7
8
9
program Simpleks;
{$APPTYPE CONSOLE}
const n=4;m=6;
type mass=array[1..n,1..m] of real;
var  k:mass;tr,i,b:integer; f1:text;
procedure vvod(var mas:mass);
var i,j:integer;
 begin
  for i:=1 to n do
 ...

1
2
3
4
5
6
7
8
var a,b,c: double;
begin
a:=0.29;
b:=0.20;
c:=a-b;
if c=0.09 then writeln('Ok') else writeln('Error');
writeln(c);
end.

1
2
3
4
5
6
7
8
var a,b,c: real;
begin
a:=0.29;
b:=0.20;
c:=a-b;
if c=0.09 then writeln('Ok') else writeln('Error');
writeln(c);
end.

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 h;
var a,b,c: real;
begin
writeln('a');
readln(a);
writeln('c');
readln(c); 
b:= (a+5)*c-3;
write(' ',b);

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  
 ...