Напишите программу, которая считывает два целых числа и выводит на экран результаты суммы, разности, умножения, деления, остаток от деления.
Пример:
$a = 5;
$b = 2;
Результат на экране:
Сумма равна 7
Разность равна 3
Умножение равно 10
Деление равно 2.5
Остаток от деления 1

var

 a,b:integer;

begin

 readln(a,b);

 writeln(a+b);

 writeln(a-b);

 writeln(a*b);

 writeln(a/b);

 writeln(a mod b)

end.

сидерический год.

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.