Claro ejemplo... según!

Raíz 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.

Multiplicaciones

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.