Составить программу, которая по введенному номеру выполняет то или иное действие над числами.

2)
uses crt;
var a,b,c:real;
begin
clrscr;
writeln('a,b ');
readln(a,b);
writeln('Введите число 1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление');
readln(c);
if c=1 then writeln('Сложение ',a+b);
if c=2 then writeln('Вычитание ',a-b);
if c=3 then writeln('Умножение ',a*b);
if c=4 then writeln('Деление ',a/b);
readln;
 
end.

uses crt;
var a,b,c:real;
    k:byte;
begin
clrscr;
writeln('Введите 2 числа:');
readln(a,b);
while k<6 do
 begin
  writeln('Выберните арифметическое действие');
  writeln('1-cложить 2-вычесть 3-умножить 4-поделить 5-выход');
  readln(k);
  case k of
  1:c:=a+b;
  2:c:=a-b;
  3:c:=a*b;
  4:c:=a/b;
  5:exit
 end;
 writeln('Результат=',c:0:3);
end;
readln
end.

while k<6 do
....
case k of
  1:c:=a+b;
  2:c:=a-b;
  3:c:=a*b;
  4:c:=a/b;
  5:exit

uses crt;
var a,b,c:real;
    k:byte;
begin
clrscr;
writeln('Введите 2 числа:');
readln(a,b);
repeat
  writeln('Выберните арифметическое действие');
  writeln('1-cложить 2-вычесть 3-умножить 4-поделить');
  readln(k);
  case k of
  1:c:=a+b;
  2:c:=a-b;
  3:c:=a*b;
  4:c:=a/b
  else exit;
  end;
  writeln('Результат=',c:0:3);
until not (k in [1..4]);
readln
end.