(*__________________________________
 |PROJETO CALCULADORA SIMPLES       |
 |AULA DE LABORATORIO DE PROGRAMACAO|
 |BY COPYLEFT ALISSON OLIVEIRA      |
 | .aka. LINUKISS                   |
 |__________________________________|*)

uses wincrt;
procedure soma;
  var
  x,num1,num2:real;
 begin
gotoxy(30,1);
      writeln('Soma');
      writeln('Digite um numero');
      readln(num1);
        clrscr;
  gotoxy(30,1);
           writeln('Soma');
       writeln('+ ');
       readln(num2);
         clrscr;
       x:= num1+num2;
 gotoxy(30,1);
       writeln('Soma');
       write('= ',x:2:4);
       readkey;
         clrscr;
 end;
 procedure sub;
  var
  x,num1,num2:real;
 begin
  gotoxy(30,1);
       writeln('Subtracao');
      writeln('Digite um numero');
      readln(num1);
   gotoxy(30,1);
      writeln('Subtracao');
        clrscr;
           writeln('-');
       readln(num2);
     clrscr;
       x:= num1-num2;
  gotoxy(30,1);
       writeln('Soma');
       write('= ',x:2:4);
       readkey;
         clrscr;
  end;
 procedure mult;
   var
  x,num1,num2:real;
 begin
  gotoxy(30,1);
       writeln('Multiplicacao');
        writeln('Digite um numero');
        readln(num1);
          clrscr;
  gotoxy(30,1);
            writeln('Multiplicacao');
       writeln('*');
       readln(num2);
         clrscr;
       x:= num1*num2;
 gotoxy(30,1);
            writeln('Multiplicacao');
       write('= ',x:2:4);
       readkey;
         clrscr;
 end;
 procedure divi;
  var
  x,num1,num2:real;
 begin
 gotoxy(30,1);
           writeln('Divisao');
      writeln('Digite um numero');
      readln(num1);
        clrscr;
 gotoxy(30,1);
           writeln('Divisao');
       writeln('/');
       readln(num2);
         clrscr;
       x:= num1/num2;
gotoxy(30,1);
       writeln('Divisao');
       write('= ',x:2:4);
       readkey;
       clrscr;
 end;
 procedure menu;
 var
 escolha:integer;
 begin
   while (escolha <> 5) do begin
   gotoxy(30,1);
    writeln ('1- SOMA');
   gotoxy(30,2);
     writeln ('2- SUBTRACAO');
   gotoxy(30,3);
       writeln ('3- MULTIPLICACAO');
   gotoxy(30,4);
         writeln ('4- DIVISAO');           
   gotoxy(30,6);
           writeln('5-FINALIZAR');
   GOTOXY(30,7);
         writeln('Digite uma opcao');
   gotoxy(35,8);
          readln(escolha);
          clrscr;
      case escolha of
       1:soma;
       2:sub;
       3:mult;
       4:divi;
       
     end;
      end;
 end;
 begin
 menu;
 end.