1
2
3
4
5
6
7
8
9
program matrix;
 
Const
  n=9; m=9;
Var
  X : array [1..n, 1..m] of Real;
  Z : array [1..n] of Real;
i,j : integer;
  s: real;
 ...

1
2
3
4
5
6
7
8
9
program lamthu;
uses crt;
var d,i,j:integer;
begin
d:=0;
writeln('nhap cac gia tri i j'); readln(i,j);
d:=j+i;
write(d);
readln;

1
2
3
4
5
6
7
8
9
program lamthu;
uses crt;
var d,i,j:integer;
begin
d:=0;
writelm('nhap cac gia tri i j'); readln(i,j);
d:=j+i;
write(d);
readln;

1
 

1
2
3
4
5
6
7
8
9
var
 N, i: longint;
 a, b, c1: byte;
begin
 readln( N );
 readln( a, b );
 if a + b >= 10
  then
   write( 1 );
 ...

1
2
3
4
5
6
7
8
9
var
 N, i: longint;
 a, b, c1: byte;
begin
 readln( N );
 readln( a, b );
 if a + b >= 10
  then
   write( 1 );
 ...

1
2
3
4
5
6
7
8
9
var P, P_, T, T_: integer;
begin
 readln( P, P_, T, T_ );
  repeat
   P:= P + P_;
   T:= T - T_;
  until
   T - P <= 0;
   writeln( P ) 
 ...

1
 

1
2
3
4
5
6
7
8
9
var P, P_, T, T_: integer;
begin
 readln( P, P_, T, T_ );
  repeat
   P:= P + P_;
   T:= T + T_;
  until
   T - P <= 0;
   writeln( P ) 
 ...

1
2
3
4
5
6
7
8
9
var
 i, j, n, para, wag: integer;
 a: array[ 1..150 ] of integer;
begin
 readln( n );
 for i:= 1 to n do
  readln( a[ i ] );
 para:= 0;
 wag:= 0;
 ...

1
2
3
4
5
6
7
8
9
var
 i, j, n, para, wag: integer;
 a: array[ 1..150 ] of integer;
begin
 readln( n );
 for i:= 1 to n do
  readln( a[ i ] );
 para:= 0;
 wag:= 0;
 ...

1
2
3
4
5
6
7
8
var n, o: integer;
 
function fib( x: integer ): integer;
 begin
  if x = 1 then fib:= 1
   else if x = 0 then fib:= 0
    else fib:= fib( x - 2 ) + fib( x - 1 )
 end;
 ...

1
2
3
4
5
6
7
8
var n, o: integer;
 
function fib( x: integer ): integer;
 begin
  if x = 1 then fib:= 1
   else if x = 0 then fib:= 0
    else fib:= fib( x - 2 ) + fib( x - 1 )
 end;
 ...

1
2
3
4
5
6
7
8
var n, o: integer;
 
function fib( x: integer ): integer;
 begin
  if x = 1 then fib:= 1
   else if x = 0 then fib:= 0
    else fib:= fib( x - 2 ) + fib( x - 1 )
 end;
 ...

1
2
3
4
5
6
7
8
var n, o: integer;
 
function fib( x: integer ): integer;
 begin
  if x = 1 then fib:= 1
   else if x = 0 then fib:= 0
    else fib:= fib( x - 2 ) + fib( x - 1 )
 end;
 ...

1
2
3
4
5
6
7
8
9
var o, n: integer;  
function fact( x: integer ): integer;
  begin
    if x = 0 then fact:= 1
    else 
     fact:= x * fact( x - 1 )
  end;
begin  
 readln( n );
 ...

1
2
3
4
5
6
7
8
9
var o, n: integer;  
function fact( x: integer ): integer;
  begin
    if x = 0 then fact:= 1
    else 
     fact:= x * fact( x - 1 )
  end;
begin  
 readln( n );
 ...

1
2
3
4
5
6
7
8
9
var n: integer;  
function fact( x: integer ): real;
  begin
    if x = o then fact:= 1
    else 
     fact:= x * fact( x - 1 )
  end;
begin  
 readln( n );
 ...

1
2
3
4
5
6
7
8
9
var n: integer;
 function fact( x: integer ): real;
  begin
   x:= x * fact( x - 1 )
  end;
begin  
 readln( n );
 if n = o then Writeln( 1 )
  else fact( n ); 

1
2
3
4
5
6
7
8
9
var n: integer;
begin
 function fact( x: integer ): real;
  begin
   x:= x * fact( x - 1 )
  end;
 readln( n );
 if n = o then Writeln( 1 )
  else fact( n ); 

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
 a, n, k, c, b: integer;
begin
 readln( a );
 readln( n );
  k:= n; b:= 1; c:= a;
  while k <> 0 do
   if k mod 2 = 0
    then
 ...

1
2
3
4
5
6
7
8
9
var
 a, n, k, c, b: integer;
begin
 readln( a );
 readln( n );
  k:= n; b:= 1; c:= a;
  while k <> 0 do
   if k mod 2 = 0
    then
 ...

1
2
3
4
5
6
7
8
9
var
 a, n, k, c, b: integer;
begin
 readln( a );
 readln( n );
  k:= n; b:= 1; c:= a;
  while k <> 0 do
   if k mod 2 = 0
    then
 ...

1
2
3
4
5
6
7
8
9
var
 a, n, k, c, b: integer;
begin
 readln( a );
 readln( n );
  k:= n; b:= 1; c:= a;
  while k <> 0 do
   if k mod 2 = 0
    then
 ...

1
2
3
4
5
6
7
8
9
var
 a, n, k, c, b: integer;
begin
 readln( a );
 readln( n );
  k:= n; b:= 1; c:= a;
  while k <> 0 do
   if k mod 2 = 0
    then
 ...

1
2
3
4
5
6
7
8
9
var
 a, n, k, c, b: integer;
begin
 readln( a );
 readln( n );
  k:= n; b:= 1; c:= a;
  while k <> 0 do
   if k mod 2 = 0
    then
 ...

1
2
3
4
5
6
7
8
9
var
 a, n, k, c, b: integer;
begin
 readln( a );
 readln( n );
  k:= n; b:= 1; c:= a;
  while k <> 0 do
   if k mod 2 = 0
    then
 ...

1
2
3
4
5
6
7
8
9
var
 a, n, k, c, b: integer;
begin
 readln( a );
 readln( n );
  k:= n; b:= 1; c:= a;
  while k <> 0 do
   if k mod 2 = 0
    then
 ...

1
2
3
4
5
6
7
8
9
program Practica4;
 
Var
  Op,Lados,LadoUno,LadoDos,LadoTres:Integer;
 
Begin
        Writeln('Opcion 1 Saber que Figura Es?');
        Writeln('Opcion 2 Que tipo de Triangulo Es?');
        Writeln('Que Opcion Deseas?');
 ...