Algoritimos para ler a procedencia de determinado produto (senteça Se)

Program Pzim ;
var
cod: integer;
 Begin
  write('informe o codigo');
  read(cod);
  if cod= 1 then
  write('sul')
  else
  if cod=2 then
  write('norte')
  else
  if cod=3 then
  write('leste')
  else
  if cod=4 then
  write('oeste')
  else
  if (cod=5) or (cod=6) then
  write('nordeste')
  else
  if (cod=7) or (cod=8) or (cod=9) then
  write('sudeste')
  else
  if (cod>=10) and (cod<=20) then
  write('centro oeste')
  else
  if (cod>=21) and (cod<=30) then
  write('noroeste')
  else
  write('invalido');
 End.

Algoritimos para ler a procedencia de determinado produto (senteça case)

Program Pzim ;
var
cod: integer;
 Begin
 write('informe o codigo:');
 read(cod);
  case cod of   
 1:write('sul');
 2:write('norte');
 3:write('leste');
 4:write('oeste');
 5..6:write('nordeste');
 7..9:write('sudeste');
 10..20:write('centro oeste');
 21..30:write('noroeste');
 else
 write('invalido');
 end;
 End.

Algoritimos para calcular o raio.

Program Pzim ;
var
raio, area: real;
 Begin
 clrscr;
 raio:= 0; {inicializar as variaveis}
 area:= 0;
 write('informe o raio do circulo:');
 readln(raio);
 area:= 3.14 * (sqr (raio)); //pi = 3.14
  writeln('a area do circule e:' , area:6:2);
 End.