program addsub;
uses crt;

{--------------------------------------------------------------------------

program description

This program asks for 2 real numbers, then prints their sum, difference,
product, and quotient.
--------------------------------------------------------------------------}


VAR num1, num2, answer:real ;
    again:char;
begin

repeat
clrscr;

write ('Please enter a real  number with no more than 2 decimal places. --->  ');
readln (num1);
writeln;
writeln;


write ('Now enter one more real number with a maxium of 2 decimal places. --->  ');
readln (num2);

writeln;
writeln;
writeln;

answer := num1 + num2;
writeln (num1:0:2,' + ',num2:0:2,' = ',answer:0:2);
writeln;

answer := num1 - num2;
writeln (num1:0:2,' - ',num2:0:2,' = ',answer:0:2);
writeln;

answer := num1 * num2;
writeln (num1:0:2,' * ',num2:0:2,' = ',answer:0:2);
writeln;

answer := num1 / num2;
writeln (num1:0:2,' / ',num2:0:2,' = ',answer:0:2);
writeln;
writeln;

write ('Do you want to go again? Type "y" for yes and "n" for no. --->  ');
again := readkey;

until again = 'n';


end.