PROGRAMA OPERACIONES BASICAS

HOLA BUENO AKI LES DEJO UN PROGRAMITA MAS.

PROGRAM EJER2B;

       USES CRT;

       VAR x,y:REAL;

       VAR suma,rest,mult:REAL;

       VAR divi:REAL;

BEGIN

       WRITELN ('Este programa suma,resta,multiplica y divide:');

       WRITELN ('Escriba dos numeros reales');

       WRITELN (' ');

       READ (x);

       READ (y);

       suma:=x + y;

       rest:=x - y;

       mult:=x * y;

       divi:=x / y;

       ClrScr;

       WRITE ('SUMA:');                              WRITELN (suma:3:0);

       WRITE ('RESTA:');                             WRITELN (rest:3:0);

       WRITE ('MULTIPLICACION:');        WRITELN (mult:3:0);

       WRITE ('DIVISION:');                        WRITE (divi:5:2);

        READLN;

END.