Var
a,b,s:real;
sim:char;
Begin
writeln(Введите два числа);
readln(a,b);
writeln(Введите знак операции);
readln(sim);
case sim of
+: s:=a+b;
-: s:=a-b;
*,x: s:=a*b;
/,:: s:=a/b;
end;
writeln (a,sim,b,=,s);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.