Amira2507 Var A,B:real;
C:integer;
Begin
WriteLn(1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход);
ReadLn(C);
While C <> 0 do
   Begin
   Write(Введите два числа: );
   ReadLn(A,B);
   Write(Ответ: );
   Case C of
   1:WriteLn(A+B);
   2:WriteLn(A-B);
   3:WriteLn(A*B);
   4:WriteLn(A/B);
   End;
   WriteLn(1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход);
   ReadLn(C);
   End;