Program Do_Some_Sums;
{Program allows the user to input the numbers. The numbers are added, subtracted, multiplied and divided.}

Uses WinCrt;

Var
   num1, num2, sum, diff, product, division:real;

{Procedures}
Procedure Welcome;
Begin
     Gotoxy(15,2);
     Write('******Welcome to enter 2 Numbers*******');
End;

Procedure Enter_Data;
Begin
     Gotoxy(10,4);
     Write('Enter first number');
     Readln(num1);
     Gotoxy(10,6);
     Write('Enter second number');
     Readln(num2);
End;

Procedure Do_Sums;
Begin
     sum := num1 + num2;
     diff := num1 - num2;
     product := num1 * num2;
     division := num1 / num2;
End;

Procedure Output;
Begin
     Gotoxy(10,8);
     Writeln('The sum of the two numbers is ',sum:2:2);
     Gotoxy(10,10);
     Writeln