Ответ:

program calc;

var

sum,raz,umn,celx1,celx2,ostx1,ostx2,korenx1,korenx2:real;

N,x1,x2:integer;

begin

 write('Введите номер операции: ');

 readln(N);

 case N of

   1:begin

       write('Введите первое число: ');

       readln(x1);

       write('Введите второе число: ');

       readln(x2);

       sum:=x1+x2;

       writeln('Сумма чисел = ',sum);

   end;

   2:begin

       write('Введите первое число: ');

       readln(x1);

       write('Введите второе число: ');

       readln(x2);

       raz:=x1-x2;

       writeln('Разность чисел = ',raz);

   end;  

   3:begin

       write('Введите первое число: ');

       readln(x1);

       write('Введите второе число: ');

       readln(x2);

       umn:=x1*x2;

       writeln('Произведение чисел = ',umn);

   end;  

   4:begin

       write('Введите первое число: ');

       readln(x1);

       write('Введите второе число: ');

       readln(x2);

       celx1:=x1 div x2;

       celx2:=x2 div x1;

       writeln('Целая часть от деления x1 на x2 = ',celx1);

       writeln('Целая часть от деления x2 на x1 = ',celx2);

   end;  

   5:begin

       write('Введите первое число: ');

       readln(x1);

       write('Введите второе число: ');

       readln(x2);

       ostx1:=x1 mod x2;

       ostx2:=x2 mod x1;

       writeln('Остаток от деления x1 на x2 = ',ostx1);

       writeln('Остаток от деления x2 на x1 = ',ostx2);

   end;  

   6:begin

       write('Введите первое число: ');

       readln(x1);

       write('Введите второе число: ');

       readln(x2);

       korenx1:= sqrt(x1);

       korenx2:= sqrt(x2);

       writeln('Квадратный корень числа x1 = ',korenx1);

       writeln('Квадратный корень числа x2 = ',korenx2);

   end;    

   else

     writeln;

     write('Введен неизвестный номер операции');

   end;

end.

Объяснение: