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.

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.