арифметические действия над числами пронумерованы следующим образом

Ответ от Lavavoth[гуру]
Мое решение:
Program chisla;
var A,B,n,m,d,k:real;
q:integer;
begin
writeln('Введите значение числа A и числа B');
readln(A,B);
n:=A+B;
m:=A-B;
d:=A*B;
k:=A/B;
begin
writeln('Введите номер действия');
readln(q);
while (q>=1) and (q<=4) do
if q=1 then writeln(n) else if q=2 writeln(m) else if q=3 writeln(d) else if q=4 writeln(k);
readln;
end.

Ответ от Женя Степанов[новичек]
q -должно быть целочисленного типа (q:byte;)

Ответ от Krab Вark[гуру]
var a,b,d:real: c:integer;
begin readln(a,b,c); case c of 1:d:=a+b; 2:c:=a-b; 3:c:=a*b; 4:c:=a/b; end;
writeln(d:15:3); readln end.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]