Даю 30 баллов! Срочно! Измените программу так чтобы вместо IF было CASE Program...

Question

Даю 30 баллов! Срочно!
Измените программу так чтобы вместо IF было CASE
Program ARIFMETIK;
var a,b,c:real;
Z:char;
begin
writeln ('Введи первое число'); read (a);
writeln ('Введи второе число'); read (b);
Writeln ('Введи значок операции'); read (z);
If z='+' then c:=a+b;
If z='-' then c:=a-b;
If z='*' then c:=a*b;
If (z='/') and (b<>0) then c:=a/b;
If (z='/') and (b=0) then writeln ('Деление невозможно)
else writeln (a:0:2,z,b:0:2,'=',(:0:2);
End.

Answer 1

Program ARIFMETIK;

var
  a,b,c:real;
  Z:char;

begin
  Writeln ('Введи первое число'); Readln (a);
  Writeln ('Введи второе число'); Readln (b);
  Writeln ('Введи значок операции'); Readln (z);
  case z of
  '+': c:=a+b;
  '-': c:=a-b;
  '*': c:=a*b;
  end;
  if z='/' then
    if b<>0 then c:=a/b
    else Writeln ('Деление невозможно')
  else Writeln(a:0:2,z,b:0:2,'=',c:0:2);
end.