PROGRAM EJER2;
USES CRT;
VAR x, y : REAL;
VAR suma, rest, mult : REAL;
VAR divi : REAL;
{suma, resta, multiplica y divide 2 numeros reales}
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);
END.