1
2
3
4
5
6
7
8
9
program ProgramaLados;
 
Var
  LadoUno, LadoDos, LadoTres:Integer;
 
Begin
Writeln(‘Ingrese Lado 1’);
Readln(LadoUno);
Writeln(‘Ingrese Lado 2’);
 ...

1
2
3
4
5
6
7
8
9
program ProgramaLados;
 
Var
  LadoUno, LadoDos, LadoTres:Integer;
 
Begin
Writeln(‘Ingrese Lado 1’);
Readln(LadoUno);
Writeln(‘Ingrese Lado 2’);
 ...

1
2
3
4
5
var a:real;b,s:real;
begin readln(a,b);
s:=a+b;
writeln('s=',s);
end.

1
2
3
4
5
var a:integer;b,s:real;
begin readln(a,b);
s:=a+b;
writeln('s=',s);
end.

1
2
3
4
5
6
7
begin
S:=0; i:=8;
while i>1 do begin
  S:=S+i div 2;
  i:=i–1;
end;
end.

1
2
3
4
5
6
7
8
9
program ask16 (input, output);
var n, u, p,  a, i, k : integer;
    door : boolean;
begin
readln(n);
u := 0;
a:=100;
repeat
if n < a then
 ...

1
2
3
4
5
6
7
8
9
var
  i, j: Integer;
  Name: AnsiString;
begin
  Readln(Name);
  j := 321;
  for i := 1 to length(Name) do
    j := j xor (ord(Name[i]) + i);
  Writeln(j);
 ...

1
2
3
4
5
6
7
8
9
program snt;
var i,j,a:integer;
begin
for i:=1 to 1000 do
begin
 for j:=2 to i do
    
        if i mod j=0 then
                a:=a+1;
 ...

1
2
3
4
5
6
7
8
9
program snt;
var i,j,a:integer;
begin
for i:=1 to 1000 do
begin
 for j:=2 to int(sqrt(i)) do
    
        if i mod j=0 then
                a:=a+1;
 ...

1
2
3
4
5
6
7
8
9
program snt;
var i,j,a:integer;
begin
for i:=1 to 1000 do
begin
 for j:=2 to int(sqrt(i)) do
      begin
        if i mod j=0 then
                a:=a+1;
 ...

1
2
3
4
5
6
7
8
9
program snt;
var i,j,a:integer;
for i:=1 to 1000 do
begin
 for j:=2 to int(sqrt(i)) do
      begin
        if i mod j=0 then
                a:=a+1;
       end;
 ...

1
2
3
4
5
6
7
8
9
program snt;
var i,j,a:integer;
for i:=1 to 1000 do
begin
 for j:=2 to int(sqrt(i)) do
      begin
        if i mod j=0 then
                a:=a+1;
       end;
 ...

1
2
3
4
5
6
7
program snt;
var nd:string[10];
begin
write(' Nhap noi dung: '); readln(nd);
write(nd);
readln
end.

1
2
3
4
5
6
7
program snt;
var nd:string[10];
begin
write(' Nhap noi dung: '); readln(nd);
write(nd);
readln
end.

1
2
3
4
5
6
7
program snt;
var nd:text;
begin
write(' Nhap noi dung: '); readln(nd);
write(nd);
readln
end.

1
2
3
4
5
6
7
program snt;
var nd:text;
begin
write(' Nhap noi dung: '); readln(nd);
write(nd),
readln
end.

1
2
3
4
5
6
7
program snt;
var nd:string;
begin
write(' Nhap noi dung: '); readln(nd);
write(nd),
readln
end.

1
2
3
4
5
6
7
8
9
program grnprk;
uses crt;
type studentrec = record
        usernum : string;
        pass : string;
        fore : string;
        sur : string;
        status : char;
        dob : integer;
 ...

1
2
3
4
5
6
7
8
9
program grnprk;
uses crt;
type studentrec : record
        usernum : string;
        pass : string;
        fore : string;
        sur : string;
        status : char;
        dob : integer;
 ...

1
2
3
4
5
6
7
8
9
procedure quicksort(terkiri,terkanan:longint);
var kiri,kanan,temp,pivot:longint;
begin
read(kiri); read(kanan); read(temp); read(pivot);
if terkiri<terkanan then
begin
kiri:=terkiri;
kanan:=terkanan;
pivot:=data[(kiri+kanan) div 2];
 ...

1
2
3
4
5
6
7
8
procedure quicksort(terkiri,terkanan:longint);
var kiri,kanan,temp,pivot:longint;
begin
if terkiri<terkanan then
begin
kiri:=terkiri;
kanan:=terkanan;
pivot:=data[(kiri+kanan) div 2];
 ...

1
2
3
4
5
6
7
8
9
procedure bubbleSort( A : list of sortable items )
   n = length(A)
   repeat
      newn = 0
      for i = 1 to n-1 inclusive do
         if A[i-1] > A[i] then
            swap(A[i-1], A[i])
            newn = i
         end if
 ...

1
2
3
4
5
6
7
8
9
USES CRT, Graph;
var
ster,tryb:integer;
 
 
 
 
procedure dom;
begin
 ...

1
 

1
2
3
4
5
6
7
8
9
var
h1, h2, d1, d2, w1, w2, lagu, jo, jumlah : integer;
x, y : char;
 
begin
readln (h1, x, d1);
readln (h2, y, d2);
readln (lagu);
w1 := h1*60 + d1;
 ...

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

1
gtttggtgt

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

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

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