// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введите два положительных числа:');
Writeln('Введите код операции');
var op:=ReadInteger('1- "+", 2- "-", 3- "x", 4- "/":');
case op of
1:Writeln(x+y);
2:Writeln(x-y);
3:Writeln(x*y);
4:Writeln(x/y);
else Writeln('Неверный код')
end
end.
Пример
Введите два положительных числа: 3.56 1.643
Введите код операции
1- "+", 2- "-", 3- "x", 4- "/": 3
5.84908