Даю 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.