{Nerea Nahir Piccone. Nº 92559}
PROGRAM TrabajoPracticoIndividual;
USES crt;
VAR
x,y: integer; {números insertados}
suma, resta, multi, divi: real; {operaciones}
BEGIN
clrscr;
REPEAT
writeln(‘Ingrese un número’);
readln(x);
UNTIL (x>=(-100)) AND (x<=100);
REPEAT
writeln(‘Ingrese otro número’);
readln(y);
UNTIL (y>= (-100)) AND (y<=100);
suma:=x+y;
resta:=x-y;
multi:=x*y;
IF (y<>0) THEN
divi:=x/y
ELSE BEGIN
Writeln (‘No se puede hacer la división’);
END;
writeln(‘===========================’);
writeln(‘La suma es:’, suma:8:3);
writeln(‘La resta es:’, resta:8:3);
writeln(‘La multiplicación es:’, multi:8:3);
writeln(‘La división es:’, divi:8:3);
readkey;
END.