Pascal Operaciones Suma, resta, multiplica y divide

PROGRAM OPERACIONES;

        USES WINCRT;

        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 (' ');

        WRITELN ('Escriba el Numero 1 ');

        READLN (x);

        WRITELN ('Escriba el Numero 2 ');

        READ (y);

        suma:=x + y;

        rest:=x - y;

        mult:=x * y;

        divi:=x / y;

        ClrScr;

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

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

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

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

END.