Как сделать концовку через case - Turbo Pascal

Формулировка задачи:

Помогите сделать концовку программы через case
program CalculatoR;
var a,b,c: integer;
 
Procedure add(a:integer;b:integer);
          begin
               writeln('Sum a+b= ',a+b);
          end;
 
Procedure minus(a:integer;b:integer);
          begin
               writeln('Otnayt a-b= ',a-b);
          end;
 
Procedure mnoz(a:integer;b:integer);
          begin
               writeln('Ymnoz a*b= ',a*b);
          end;
 
Procedure Deleum(a:integer;b:integer);
          begin
               writeln('Del a/b= ',a div b);
          end;
begin
     writeln('                  ***Calculator***');
     writeln('Viberete deystvie 1-Dodat 2-Otnayt 3-Ymnoz 4-Delit');
     readln(c);
 
     if c=1 then
     begin
     writeln('Vvedite dva chisla');
     readln(a,b);
     add(a,b);
     end;
 
      if c=2 then
     begin
     writeln('Vvedite dva chisla');
     readln(a,b);
     minus(a,b);
     end;
 
      if c=3 then
     begin
     writeln('Vvedite dva chisla');
     readln(a,b);
     mnoz(a,b);
     end;
 
      if c=4 then
     begin
     writeln('Vvedite dva chisla');
     readln(a,b);
     Deleum(a,b);
     end;
 
     if c<1 then
        writeln('Error!');
     if c>4 then
        writeln('Error!');
 
 
 readln;
end.

Код к задаче: «Как сделать концовку через case - Turbo Pascal»

textual
readln(c);
case c of
1:begin
  .......
  end;
2:
3:
4:
else write('Error');
end;

9   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ