Кто может ? введите с клавиатуры числа a, b и n . если a и b больше n, то напечатайте слово «больше», если меньше n, то напечатайте «меньше», иначе найдите и выведите сумму чисел a и b.

Var
   a,b,N: integer
begin 
Readln(a);
Readln(b);
   Readln(N);
   if (a>N) and (b>N) then Writeln ('БОЛЬШЕ')  
 else if   (a<N) and (b<N) then Writeln ('МЕНЬШЕ')   
   else Writeln ('N в промежутке между a и b') else Writeln('N в промежутке между a и b') end.

#include <iostream>
#include <cmath>
using namespace std;

int main()
{
 int selection;
 float first, second, result;
 cout << "Калькулятор\n";
 cout << "1. Сложение\n";
 cout << "2. Вычитание\n";
 cout << "3. Умножение\n";
 cout << "4. Деление\n";
 cout << "0. О программе\n\n";
 cout << "Введите цифру: ";
 cin >> selection;
 switch(selection)
 {
  case 1:
   cout << "Введите первое слагаемое: ";
   cin >> first;
   cout << "Введите второе слагаемое: ";
   cin >> second;
   result = first + second;
   cout << "Результат: " << result << "\n";
   break;
  case 2:
   cout << "Введите уменьшаемое: ";
   cin >> first;
   cout << "Введите вычитаемое: ";
   cin >> second;
   result = first - second;
   cout << "Результат: " << result << "\n";
   break;
  case 3:
   cout << "Введите первый множитель: ";
   cin >> first;
   cout << "Введите второй множитель: ";
   cin >> second;
   result = first * second;
   cout << "Результат: " << result << "\n";
   break;
  case 4:
   cout << "Введите делимое: ";
   cin >> first;
   cout << "Введите делитель: ";
   cin >> second;
   result = first / second;
   cout << "Результат: " << result << "\n";
   break;
  case 0:
   cout << "Программа 'Калькулятор'.\n";
   break;
  default:
   cout << "Необходимо ввести цифру от 0 до 4 в зависимости от Вашего выбора!\n";
 }
return 0;
}

Задание 1.

program z1;

var a: array[0..14] of integer;

i: integer;

begin

   Randomize;

   for i:=0 to 14 do a[i] := Random(101) - 50;

   for i:=0 to 14 do write(a[i], ' ');

end.

Задание 2.

program z2;

var a, b, c: array[0..19] of integer;

i: integer;

begin

   Randomize;

   for i:=0 to 19 do begin

       a[i] := Random(21) - 10;

       b[i] := Random(21) - 10;

       c[i] := a[i] + b[i];

   end;

   for i:=0 to 19 do write(a[i], ' ');

   writeln();

   for i:=0 to 19 do write(b[i], ' ');

   writeln();

   for i:=0 to 19 do write(c[i], ' ');

end.

Задание 3.

program z3;

var a: array[0..19] of integer;

i: integer;

begin

   a[0] := 1;

   a[1] := 1;

   for i:=2 to 19 do begin

       a[i] := a[i-1] + a[i-2];

   end;

   for i:=0 to 19 do write(a[i], ' ');

end.