EJEMPLOS

RAIZ CUADRADA

 program raiz(input, output);

 uses crt;

 (*

   Obtener la raíz cuadrada de un número real x cualquiera.

 *)

 var x, y: irreal;

 respuesta: string;

 begin

   writeln('** Calcular la raíz cuadrada de 12 **');

   writeln('Entrar x (> 0): ');

   readln(x);

   y := sqrt(abs(x)); (* Raíz cuadrada del valor absoluto de x para evitar raíces imaginarias *)

   writeln;

   if (x<0) then (* Si x es negativo, el resultado se notifica como imaginario *)

      writeln('La raíz cuadrada de ', x, ' es el número imaginario ', y,'i')

   else

      writeln('La raíz cuadrada de ', x, ' es ', y);

   writeln;

   writeln('** Fin **');

 end.

SUMA

 program suma; uses crt;                                                        

 var x,s:integer;                                                             

 begin                                                                        

     clrscr;                                                                 

     x:=1;                                                                   

     s:=0;                                                                   

     repeat                                                                  

           s:=s+x;                                                            

           x:=x+1;                                                           

     until x=50;                                                             

     writeln('la suma es  ',s);                                              

end.

MULTIPLICACION

 program multi;

 {$APPTYPE CONSOLE}

 uses

   SysUtils;

 var  n,x:integer;

 begin

   x:=0;

   writeln('Entra un numero de la serie');

   readln(n);

   while n<>0 do

    begin

     if (n mod 3)=0 then

      begin

       x:=x+1;

       writeln('Dame otro numero');

       readln(n);

      end

     else

      begin

       writeln ('Dame otro numero');

       readln(n);

      end;

    end;

    writeln ('El numero de multiples de 3 es',x);

 end.

http://www.elrinconcito.com/historia/H11.htm