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.