Объяснение:

program a;

var

a, b, c: real;

begin

Writeln('Введите номер действия:');

Readln(a);

Writeln('Введите 2 любых числа числа');

Readln(b, c);

if a = 1 then

Writeln(b + c) ;

if a = 2 then

Writeln(b - c) ;

if a = 3 then

Writeln(b * c) ;

if a = 4 then

Writeln(b / c) ;

end.