1.
PROGRAM ej1; USES crt;
BEGIN WRITELN ('Hola mundo');
END.
2.
PROGRAM ej2; USES crt;
VAR num1, num2, resultado: INTEGER;
BEGIN READLN (num1); READLN (num2); resultado:= (num1 + num2); WRITELN (resultado);
END.
3.
PROGRAM ej3; USES crt;
VAR num, cont: INTEGER;
BEGIN cont:= 0; REPEAT READLN (num) WRITELN ('El numero es: ', num); cont:= (cont + 1); UNTIL (cont = 3);
END.
4.
PROGRAM ej4; USES crt;
VAR num1, num2, res: REAL;
BEGIN num1:= 8; num2:= 10; res:= (num1 + num2) / 2 WRITELN ('El promedio es: ',res:1:2);
END.
5. El siguiente algoritmo es correcto?
PROGRAM ej5; USES crt;
BEGIN resultado:= (num1, num2, num3) / 3; READLN ('El resultado es:',resultado);
END.
6.
PROGRAM ej6;
USES crt;
VAR X, Y, Z: INTEGER;
BEGIN X:= 10; Y:= -8; Z:= 36; Y:= X; WRITELN (X, Y, Z);
END.