program Project4;
{$APPTYPE CONSOLE}
uses
 SysUtils;

var a,b,c     :Real;    //Операнды
   operator  :Char;    //Оператор
   prodolgit :Char;    //Флаг,показывающий запускать калькулятор или нет
   Err       :Boolean; //Флаг,показывающий ошибку ввода оператора
   i         :Integer; //Переменная цикла
begin
 prodolgit:='y';
 While prodolgit='y' do
 begin{of while}
    Err:=false;
    Write('Vvedite a: ');
    Readln(a);
    Write('Vvedite operator: ');
    Readln(operator);
    Write('Vvedite b: ');
    Readln(b);
    case operator of
    '+':
        c:=a+b;
    '-':
        c:=a-b;
    '*':
        c:=a*b;
    '/':
       begin{of '/'}
        If b=0 then
         begin{of if }
          Writeln('Delit na nol nelzya!!!!');
          Err:=true;
         end {of if}
        else
         C:=a/b;
       end{of '/'};
    '^':
        begin{of ^}
         If b=0 then
          c:=1
         else
          If b>1 then
          begin
           c:=1;
           For i:=1 to round(b) do
           Begin{of for}
            c:=c*a;
           end{of for};
          end
          else
          If b<1 then
          begin
          b:=b*(-1);
           c:=1;
           For i:=1 to round(b) do
           Begin{of for}
            c:=c*a;
           end{of for};
           c:=1/c;
          end;
        end{of ^}
    else
     begin{of else}
      Writeln('Ohibka!!!!!');
      Err:=true;
     end;{of else}
    end;{of case}
    If Err=false then
     Writeln('Otvet: ', c:5:2);
     Writeln;
    Write('Hotite eche vospolzovatsya calcylyatorom?(y/n) ');
    Readln(prodolgit);
    Writeln;
 end;{of while}
end.

Var
 a, b: Double;
 c: Extended; { теперь переполнения произойти не должно }

'+': begin
       Repeat
       If abs(a)>32768 then b
       begin
        writeln('Chislo a previsaet dopustimoe znachenie. Vvedite dr. chislo');
        Readln(a);
        z:=1;
       end {if}
       else z:=0;
        If abs((a/2)+(b/2))>32768/2   then
        begin
          Writeln('Chislo b previsaet dopustimoe znachenie. Vvedite dr. chislo');
          Readln(b);
          z:=1;
        end {if}
        else z:=0;
        until z=0;
           Writeln('a+b=',a+b);
       end;