01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Банальный кукулятор

Program Calculator;
{€бЇ®«м§гп ®ЇҐа в®а case а §а Ў®в вм Їа®Ја ¬¬г Є «мЄг«пв®а}
 Var S,A,B:real;
     Oper:char;
     k,l:boolean;

 Begin
      Repeat
  Writeln ('‚ўҐ¤ЁвҐ ¤ў  зЁб« ');
  Readln (A,B);
  Writeln ('‚ўҐ¤ЁвҐ ®ЇҐа жЁо');
  Readln (oper);

   If (B=0) and (oper='/') then l:=false
    else l:=true;
     If (oper='/') or (oper='*') or (oper='-') or (oper='+') then k:=true
      else k:=false;
  Until (l=true) and (k=true);

  Case oper of
   '+':S:=A+B;
   '-':S:=A-B;
   '*':S:=A*B;
   '/':S:=A/B
  End;
 Writeln (A:6:2,oper,B:6:2,'=',S:6:2);
 Readln;
 End.