Домашнее задание (8 а,б,д - к 16 янв..; 8 в,г - к 18 янв.)

1. Проверить работу программы
     program maximym;
     var A, B, max: integer;
     begin
          writeln (‘введите любые два числа’);
          readln (A,B);
          if A>B then max:=A
                      else max:=B;
          writeln (‘максимальное число‘, max);
     end.

2. Записать программу для любой из четырех задач, используя составленные конструкции оператора ветвления и проверить в среде TP.
Задача 1. Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100.
Задача 2. Ввести 2 числа. Если их произведение отрицательно, умножить его на –2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран.
Задача 3. Ввести 2 числа. Вычесть из большего меньшее.
Задача 4. Ввести число. Если оно больше 8, разделить его на 4, если меньше или равно 8, то умножить на 5.