1
2
3
4
5
6
7
8
9
program gds;
var x,a:integer;
begin
readln(x);
for a:=1 to x then 
begin
relay(200);
writeln('|');
end;
 ...

1
2
3
4
5
6
7
8
9
program gds;
var x,a:integer;
begin
readln(x);
for a=1 to x then 
begin
relay(200);
writeln('|');
end;
 ...

1
2
3
4
5
6
7
8
9
program gds;
var x:integer;
begin
readln(x);
for a=1 to x then 
begin
relay(200);
writeln('|');
end;
 ...

1
2
3
4
5
6
7
8
9
program EXERCICIO;
var
A,B,X: real;
begin
writeln('Digite um número para A');
read(A);
X:=A+B;
writeln(X);
end.

1
2
3
4
5
6
7
8
9
program EXERCICIO;
var
A,X: real;
begin
writeln('Digite um número para A');
read(A);
X:=A+B;
writeln(X);
end.

1
2
3
4
5
6
7
8
9
program EXERCICIO;
var
A: real;
begin
writeln('Digite um número para A');
read(A);
X:=A+B;
writeln(X);
end.

1
2
3
4
5
6
7
8
9
program EXERCICIO;
var
A, B, C, D, X, X1 ,X2 ,Y ,Y1, Y2 : real;
begin
writeln('Digite um número para A');
read(A);
X:=A+B;
writeln('A soma de A+B é=   ',X);
end.

1
2
3
4
5
program fsdfj;
begin
write('Hahha');
readln;
end.

1
2
3
4
5
6
program jsdg;
uses crt;
begin
write('Hahhahah');
readln;
end.

1
2
3
4
5
6
7
8
9
program SALARIO;
var
HT, VH, PD, TD, SB, SL : real;
begin
writeln('Quantas horas de trabalho? ');
readln(HT);
writeln('Qual o valor da hora? ');
readln(VH);
writeln('Qual o percentual de desconto? ');
 ...

1
2
3
4
program OlaMundo; //Cabeçalho do programa
begin
write('Ola Mundo!'); //Imprime "Ola Mundo!" na tela
end.

1
2
3
4
5
6
7
8
9
PROGRAM Ascii(INPUT,OUTPUT);
VAR i,n,val:INTEGER;
        c:CHAR;
 
BEGIN
     n:=0;
     FOR i:=0 TO 256 DO
     BEGIN
          n:=n+1;
 ...

1
2
3
4
5
6
7
8
9
Program Ex12;
Var
raioBase,altura,volume : Real;
Begin
ClrScr;
Write(‘Digite o valor do raio da base:’);
ReadLn(raioBase);
Write(‘Digite o valor da altura do cone:’);
ReadLn(altura);
 ...

1
2
3
4
5
6
7
8
9
Program Ex12;
Uses
Crt;
Var
raioBase,altura,volume : Real;
Begin
ClrScr;
Write(‘Digite o valor do raio da base:’);
ReadLn(raioBase);
 ...

1
2
3
4
5
6
7
8
9
program EXERCICIO;
var
A,B,C,D,X,X1,X2,Y,Y1,Y2:real;
begin
writeln('Digite um número para A'); readln(A);
writeln('Digite um número para B'); readln(B);
writeln('Digite um número para C'); readln(C);
writeln('Digite um número para D'); readln(D);
X:=A+B;
 ...

1
2
3
4
5
6
7
8
9
program EXERCICIO;
var
A,B,C,D,X,X1,X2,Y,Y1,Y2=real
begin
writeln('Digite um número para A'); readln(A);
writeln('Digite um número para B'); readln(B);
writeln('Digite um número para C'); readln(C);
writeln('Digite um número para D'); readln(D);
X:=A+B;
 ...

1
2
3
4
5
6
7
8
9
program EXERCICIO;
var
A,B,C,D,X,X1,X2,Y,Y1,Y2= real
begin
writeln('Digite um número para A'); readln(A);
writeln('Digite um número para B'); readln(B);
writeln('Digite um número para C'); readln(C);
writeln('Digite um número para D'); readln(D);
X:=A+B;
 ...

1
2
3
4
5
6
7
8
9
program d;
uses crt,graph;
const n=11;
var kosta:boolean;
type
Point=record
           x,y:integer;
           end;
mas=array[1..n] of Point;
 ...

1
2
3
4
5
Program p1;
begin
writeln('df');
 
end.

1
2
3
4
5
Program p1;
begin
writeln('df');
end;
end.

1
2
3
4
5
6
7
8
9
program te;
var I : InTEGER;
        a_B, z: ReAl;
        b: array [0..2] of integer;
        zzz : boolean;
 
function tt(a: integer; n: real): integer; forward;
function aa(): integer; forward;
function tt(a: integer; n: real): integer;
 ...

1
2
3
4
5
6
7
8
9
program te;
var I : InTEGER;
        a_B, z: ReAl;
        b: array [0..2] of integer;
        zzz : boolean;
 
function tt(a: integer; n: real): integer; forward;
function aa(): integer; forward;
function tt(a: integer; n: real): integer;
 ...

1
2
3
4
5
6
7
8
9
program te;
var I : InTEGER;
        a_B, z: ReAl;
        b: array [0..2] of integer;
        zzz : boolean;
 
function tt(a: integer; n: real): integer; forward;
function aa(): integer; forward;
function tt(a: integer; n: real): integer;
 ...

1
2
3
4
5
6
7
8
9
program te;
var I : InTEGER;
        a_B, z: ReAl;
        b: array [0..2] of integer;
        zzz : boolean;
 
 
 
        
 ...

1
2
3
4
5
6
7
8
9
type c4 = array[1..4] of char;
 
function AsLongint(var Buffer): Longint;
var l: Longint absolute Buffer; 
begin 
  AsLongint := l;
end; 
 
function AsCharArray(var Buffer): c4;
 ...

1
2
3
4
var c: array[1..4] of char;
begin
  c := 'test';
end.

1
2
3
4
5
6
7
8
9
program P;
var a,b:integer;
function f(var a:integer; b:integer):integer;
begin
 if a>0 then f:=f(a-1,b-1)+2
 else if b<0 then f:=f(a,b+1) -1
 else f:=b;
end;
begin
 ...

1
2
3
4
5
6
7
8
9
program P;
var a,b:integer;
function f(var a:integer; b:integer):integer;
begin
 if a>0 then f:=f(a,b-1)+2
 else if b<0 then f:=f(a,b+1) -1
 else f:=b;
end;
begin
 ...

1
2
3
4
5
6
7
8
9
program P;
var a,b:integer;
function f(a,b:integer):integer;
begin
 if a>0 then f:=f(a-1,b-1)+2
 else if b<0 then f:=f(a,b+1) -1
 else f:=b;
end;
begin
 ...

1
2
3
4
5
6
7
8
9
program P;
var a,b:integer;
function f(a:integer;var b:integer):integer;
begin
 if a>0 then f:=f(a-1,b-1)+2
 else if b<0 then f:=f(a,b+1) -1
 else f:=b;
end;
begin
 ...