program calculadora;
        var
           number1, number2, resultado : real;
           funciones: char;


begin
     Writeln('Este programa es una calculadora');
     Writeln('Inserte el primer numero : '); readln(number1);
     Writeln('Inserte el segundo numero : '); readln(number2);
     Write('Que desea hacer con estos numeros? : sumar(+) , multiplicar(*) , dividir(/) , restar(-)    ');
     Readln(funciones);
     case (funciones) of
     '+' : resultado:=number1+number2;
     '-' : resultado:= number1-number2;
     '/' : resultado:= number1/number2;
     '*' : resultado:= number1*number2;
     else Writeln('No se puede realizar esta operacion');
     end;

     Writeln('El resultado es: ' , resultado) ;

     readln

end.      

program ej;

var
   numero:integer;
   resultado:integer;

begin
     repeat
           Writeln('Inserte numeros');
           Readln(numero);

     until numero<=0;

end.             

Program For;

 var
   numero: integer;


 begin

   for numero := 3 to 27 do

       Write(numero:=numero+2);
   readln
 end.