Сделать правильную программу по фотке.

Сразу два решения.

Объяснение:

Так как тут можно использовать и case и if, вот вам на выбор.

if then else

program zadacha;

var a,b,kod:real;

begin

 write('Введите значение a: ');readln(a);

 write('Введите значение b: ');readln(b);

 write('Введите код операции (от 1 до 4): ');readln(kod);

 

 if kod=1 then

   kod:=a+b

 else

   if kod=2 then

     kod:=a-b

   else

     if kod=3 then

       kod:=a*b

   else

     kod:=a/b;

 writeln('ответ: ',kod);

end.

case:

program zadacha;

var a,b,kod:integer;

begin

 write('Введите значение a: ');readln(a);

 write('Введите значение b: ');readln(b);

 write('Введите код операции (от 1 до 4): ');readln(kod);

 

 case kod of

   1:kod:=a+b;

   2:kod:=a-b;

   3:kod:=a*b;

   4:kod:=a div b;

 end;

 writeln('ответ: ',kod);

end.