4. Напишите программу на языке Pascal, которая определит, какое из двух расстояний (S1 или S2) больше, при условии

Тема занятия: Программирование на языке Pascal
Инструкция:
Для решения задачи используем заданные соотношения: 1 сажень = 2,134 метра и 1 пуд = 16,38 килограмма.

1. Чтобы определить, какое из двух расстояний (S1 или S2) больше, нужно ввести значения расстояний в метрах и саженях, а затем сравнить их.

Пример использования:

   var

     S1, S2: real;

   begin

     writeln("Введите первое расстояние в метрах: ");

     readln(S1);

     writeln("Введите второе расстояние в саженях: ");

     readln(S2);

     

     if S1 > S2 then

       writeln("Первое расстояние больше второго")

     else if S1 < S2 then

       writeln("Первое расстояние меньше второго")

     else

       writeln("Оба расстояния равны");

       

     readln;

   end.

   

2. Чтобы определить, какой из двух мешков тяжелее, нужно ввести значения массы мешков в килограммах и пудах, а затем сравнить их.

Пример использования:

   var

     m1, m2: real;

   begin

     writeln("Введите массу первого мешка в килограммах: ");

     readln(m1);

     writeln("Введите массу второго мешка в пудах: ");

     readln(m2);

     

     m2 := m2 * 16.38; // конвертируем массу второго мешка в килограммы

     

     if m1 > m2 then

       writeln("Первый мешок тяжелее второго")

     else if m1 < m2 then

       writeln("Первый мешок легче второго")

     else

       writeln("Оба мешка имеют одинаковую массу");

       

     readln;

   end.

   

Совет:
Чтобы лучше понять программирование на языке Pascal, рекомендуется изучать основные конструкции языка, такие как условные операторы (if, else if, else) и операции сравнения (> - больше, < - меньше, = - равно). Также полезно узнать о вводе и выводе данных с помощью функций readln и writeln.

Ещё задача:
Напишите программу на языке Pascal, которая будет запрашивать у пользователя два числа и выводить их сумму.