program calculator;
 uses 
      GraphABC;
 var a,b:longint;
    c,d,f: integer;
  begin
   writeln('Выбирите операцию, которую вы хотели бы провести с числами (ввидите номер операции)');
   writeln('   1)сложение');
   writeln('   2)вычитание');
   writeln('   3)умножение');
   writeln('   4)деление');
   writeln('   5)нахождение остатка');
   writeln('   6)целочисленное деление');
   writeln('   7)возвести в квадрат');
   writeln('   8)возвести в квадратный корень');
   writeln('   9)вычеслить синус');
   writeln('   10)вычеслить косинус');
   writeln('   11)написать число Пи');
    readln(c);
   writeln('    --------------------------------------------------------------------------------------------------------------------------------------------');
    case c of
     1: begin 
         writeln('Ввидите первое слагаемое');
          readln(a);
         writeln('ввидите второе слагаемое');
          readln(b);
         writeln('сумма равна ',a+b)
        end;
     2: begin
         writeln('Ввидите уменьшаемое');
          readln(a);
         writeln('ввидите вычитаемое');
          readln(b);
         writeln('разнасть равна ', a-b);
        end;
     3: begin
         writeln('Ввидите множитель');
          readln(a);
         writeln('ввидите множитель');
          readln(b);
         writeln('произведение равно ', a*b);
        end;
     4: begin
         writeln('Ввидите делимое');
          readln(a);
         writeln('ввидите делитель');
          readln(b);
         writeln('частное равно ', a/b);
        end;
     5: begin
         writeln('Ввидите делимое');
          readln(d);
         writeln('ввидите делитель');
          readln(f);
         writeln('остаток равен ', d mod f);
        end;
     6: begin
         writeln('Ввидите делимое');
          readln(d);
         writeln('ввидите делитель');
          readln(f);
         writeln('частное от целочисленного деления равно ', d div f);
        end;
     7: begin 
         writeln('Ввидите число, которое необходимо возвести в квадрат');
          readln(a);
         writeln('квадрат числа ', a,' равен ' , Sqr(a));
        end;
     8: begin
         writeln('Ввидите число');
          readln(a);
         write('Квадратный корень ',a,' равен ');
         writeln(sqrt(a));
        end;
     9: begin
         writeln('Ввидите число');
          readln(a);
         write('Синус числа',a,' равен ');
         writeln(Sin(a));
        end;
    10: begin
         writeln('Ввидите число');
          readln(a);
         write('Косинус числа ', a,'  равен ');
         writeln(Cos(a));
        end;
    11: begin
         writeln('Пи=',Pi);
        end;
    end;
end.