1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
8
9
program diafora(input, output);
var N, i, j, temp, thesi, min : integer;
    a : array[1..1000000] of integer;
 
begin
 readln(N);
 thesi:= 0;
 i:= 0;
 while i < N do
 ...

1
2
3
4
5
6
7
program HelloWorld;
var
  a    : Byte;
begin
  writeln('Hello World');
  Readln(a);
end.

1
2
3
4
5
6
7
8
9
Program exercicio10;
var
 a,b,t:real;
begin
  write('Digite Prim num: ');
  read(a);
  write('Digite Seg num: ');
  readln(b);
  t:=a+b;
 ...

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 tretas;
Var b : real;
Var a : Integer;
 
Begin
 
a := 0;
 
End.

1
2
3
4
5
6
7
8
9
program tretas;
Var b : real;
Var a : Integer;
 
Begin
 
Integer := 0;
 
End.

1
2
3
4
5
6
7
8
9
program tretas;
Var Integer : real;
Var a : Integer;
 
Begin
 
Integer := 0;
 
End.

1
2
3
4
5
6
7
8
program tretas;
Var Integer : integer;
 
Begin
 
Integer := 0;
 
End.

1
2
3
4
5
6
7
8
program tretas;
Var Integer : real;
 
Begin
 
Integer := 0;
 
End.

1
2
3
4
5
6
7
8
program tretas;
Var Integer : Integer;
 
Begin
 
Integer := 0;
 
End.

1
2
3
4
5
6
7
8
9
program ask(input,output);
 
const max=1000000;
 
var wid,n,i,mid,first,last,sn:integer;
    a:array[1..max] of integer;
 
begin
readln(n);
 ...

1
2
3
4
5
6
7
8
9
program ask(input,output);
 
const max=1000000;
 
var wid,n,i,mid,first,last,sn:integer;
    a:array[1..max] of integer;
 
begin
readln(n);
 ...

1
2
3
4
5
6
7
8
9
Program resultado;
     Var N1,N2,N3 : Real;
             S, M : Real;
     Begin
         N1:=7.5;
         N2:=5.5;
         N3:=4.5;
         S:=N1+N2+N3;
         M:=S/3;
 ...

1
2
3
4
5
6
7
8
9
program ask(input,output);
 
const max=1000000;
 
var wid,n,i,mid,first,last,sn:integer;
    a:array[1..max] of integer;
    found:boolean;
 
begin
 ...

1
2
3
4
5
6
7
8
9
program ount_7 (input, output);
var n, n1, n2, metr : integer;
begin
readln(n);
n1:=(n mod 10);
n2:=(n div 10);
metr:=0;
if (n1=7) then metr:=metr+1;
if (n2=7) then metr:=metr+1;
 ...

1
2
3
4
5
6
7
8
9
program ount_7 (input, output);
var n, n1, n2, metr : integer;
begin
readln(n);
n1:=(n mod 10);
n2:=(n din 10);
metr:=0;
if (n1=7) then metr:=metr+1;
if (n2=7) then metr:=metr+1;
 ...

1
2
3
4
5
6
var id : integer;
    x : real;
 
begin
 
end.

1
2
3
4
5
6
var id : integer;
var x : real;
 
begin
 
end.