As estruturas do pascal como funções, procedimentos, corpo principal, if, while, do while etc são delimitadas pelas palavras reservadas "begin" e "end" (inicio e fim). Dessa forma, todo código relativo a cada uma dessas estruturas DEVERÁ estar contido dentro dessa limitação. Observe que as funções e procedimentos permitem apenas a declaração de variáveis e tipos fora dessa limitação.

  Quando a delimitação de fim é seguida de ponto final ("end."), indica o fim da execução de um programa e é utilizado exclusivamente no corpo principal do programa. Já nas outras estruturas, o fim é sempre seguido de ponto e vírgula ("end;").

  Conforme dito anteriormente, a única estrutura obrigatória (e mínima estrutura) é o corpo principal. Assim, pode-se fazer um programa bem simples como o a seguir:

begin
  writeln('Olá mundo!');
end.

begin
  writeln('Olá'); { Imprime a mensagem "Olá" }
end.

begin
  writeln('Um');  
{ writeln('Dois');
  writeln('Três'); }
  writeln('Quatro');
end.

begin
  writeln('Um');  
  writeln('Quatro');
end.

var horas : integer;

begin
  { Imprime na tela a mensagem 'Qual a hora? ' }
  write('Qual a hora? ');

  { Lê dados do teclado }
  readln(horas);

  { Analisa a resposta do usuário }
  if (horas >= 6) and (horas < 12) then
    writeln('Bom dia.');
  if (horas >=12) and (horas < 19) then
    writeln('Boa tarde.');
  if (horas >=19) or  (horas < 6) then
    writeln('Boa noite.');
end.

procedure teste;
var x : integer;
begin
  ...
end;

var x : integer { Global }

procedure teste;
var x : integer; { Local }
begin
  x:=8;
  printf('Valor de x local: ', x);
end;

begin
  x:=5;
  teste;
  printf('Valor de x global: ', x);
end.

if (a=1) and (b=2) then ...  

var a, b, c : real;

function media(na, nb, nc : real):real;
begin
  media := (na+nb+nc)/3;
end;

begin
  write('Entre com a nota 1: ');
  readln(a);
  write('Entre com a nota 2: ');
  readln(b);
  write('Entre com a nota 3: ');
  readln(c);
  writeln('A média final é: ',media(a,b,c));
end. 

function media(na, nb, nc : real):real;
               ↕   ↕   ↕
         media(a,  b,  c)

function nome(parametros):retorno;

• nome - é o nome da função. Deve começar por uma letra e não pode haver espaços. Ex: soma, calcula_isto, p2, etc.
• parametros - valores que são passados para a função quando ela for chamada.
• retorno - indica o tipo de dados que será retornado pela função. Para retornar algum valor, coloque dentro da função o nome dela associado a algum valor. Ex: media := 4;

function rotate(zoom, x, y : integer; alfa, beta : real):integer;

var cateto_adjacente, cateto_oposto, hipotenusa, area : real;

begin
  write('Valor do cateto adjacente: ');
  readln(cateto_adjacente);

  write('Valor do cateto oposto: ');
  readln(cateto_oposto);

  { Calcula }
  hipotenusa := sqrt(sqr(cateto_adjacente) + sqr(cateto_oposto));
  area := (cateto_adjacente * cateto_oposto)/2.0;

  writeln('Valor da hipotenusa: ', hipotenusa);
  writeln('Valor da area: ', area);
end.

procedure repete_100;
var i : integer;
begin 
  for i:=1 to 100 do
    writeln('EU AMO MSX');
end;

begin
  repete_100;
end. 

FOR variável := valor_inicio to valor_fim DO
begin
  bla, bla, bla ....
end;

WHILE condição do
begin
  bla, bla, bla ...
end;

REPEAT
  bla, bla, bla ...
UNTIL condição 

• a > 10
• b < c
• idade = 15
• 4 < 3

var n : integer;

procedure repete(n : integer);
var i : integer;
begin 
  for i:=1 to n do
    writeln('EU AMO MSX');
end;

begin
  write('Repete quantas vezes?');
  readln(n);
  repete(n);
end. 

var nome : array[1..10] of string[40];
      i : integer;

begin 
  { Lê os nomes }
  for i:=1 to 10 do
  begin
    write('Nome do aluno ',i,': ');
    readln(nome[i]);
  end;

  { Escreve os nomes }
  for i:=1 to 10 do
    writeln('Nome do aluno ',i,': ',nome[i]);
end. 

  nome_atual := nome[5];

+--+--------+
|1 | Bia    |
+--+--------+
|2 | Renata |
+--+--------+
|  | ...    |
+--+--------+
|5 | Paula  | ← nome_atual
+--+--------+
|  | ...    |
+--+--------+
|10| Pâmela |
+-+---------+