Var
a,b,c,d:integer;
e : real;
begin
readln (a,b);
c := a + b;
d := a * b;
e := a / b;
writeln ('Сумма = ',c,' произведение = ',d, ', а частное = ',e);
end.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal;
var y:real;
if x<5 then y:=1/(x-5)
else
if x=5 then y:=45
else y:=x**3-20;
Writeln(y)
end.
<u>Пример</u>
12.543
1953.350667007
Самая мелкая единица измерения информации-бит