Вечеру ветерок закрепчал, начался настоящий шторм – десять. Море бушует. Как поднимет нашу «Беду», как швырнет вниз!.. Снасти стонут, мачта скрипит. А я радуюсь: «Беда» моя держится молодцом, на пять с плюсом сдает штормовой экзамен. И Лом – героем: надел зюйдвестку, стоит, как влитой, у руля и твердой рукой держит штурвал. Напишите программу для определния устойчивости корабля к шторму.
Формат ввода
Вводятся два числа – сила ветра в и рейтинг корабля.
Формат вывода
Если у обоих чисел одинаковая чётность и рейтинг кратен силе ветра, то вывести:
Экзамен сдан!
Если это не так, но числа заканчиваются на одинаковую цифру, то вывести:
Неплохо!
Иначе:
В море не выходить.
Пример 1
Ввод
Вывод
8
32
Экзамен сдан!
Пример 2
Ввод
Вывод
13
33
Неплохо!
Пример 3
Ввод
Вывод
9
17
В море не выходить.

Const
  n = 30;

var
  r: array[1..n] of real;
  i: integer;
  s1,s2:real;

begin
  Randomize;
  Writeln('Значения радиусов');
  s1 := 0; s2:=0;
  for i := 1 to n do
  begin
    r[i] := 60*Random+20; { диапазон [20;80] }
    Write(r[i]:0:3,' ');
    if (i mod 2)=0 then s2:=s2+Pi*sqr(r[i])
    else s1:=s1+Pi*sqr(r[i])
  end;
  Writeln;
  Writeln('Сумма площадей нечетных окружностей равна ',s1:0:3);
  Writeln('Сумма площадей четных окружностей равна ',s2:0:3);
  if s1>s2 then Writeln('Сумма площадей нечетных окружностей больше.')
  else Writeln('Сумма площадей четных окружностей больше.')
end.

Тестовое решение:
Значения радиусов
56.879 33.997 66.165 54.564 63.760 32.462 56.152 36.012 45.476 58.788 22.239 21.141 76.301 78.056 41.087 46.567 57.791 21.957 77.978 76.025 38.028 69.101 27.912 64.033 40.992 73.433 61.029 24.535 56.062 23.439
Сумма площадей нечетных окружностей равна 141677.771
Сумма площадей четных окружностей равна 126696.264
Сумма площадей нечетных окружностей больше.

Const
  m = 3;
  n = 4;
var
  a: array[1..m, 1..n] of integer;
  i, j, k, t: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
  end;
  { Пузырьковая сортировка по возрастанию в строках }
  for i:=1 to m do
    for k := 1 to n-1 do
      for j := 1 to n-1 do
        if a[i,j] > a[i,j+1] then
        begin t := a[i,j]; a[i,j] := a[i,j+1]; a[i,j+1] := t end;
  Writeln('Сортировка по строкам');
  for i := 1 to m do
  begin
    for j := 1 to n do Write(a[i, j]:4);
    Writeln
  end
end.

Тестовое решение:
Исходный массив
  41   5 -19  -6
  46 -27  37   5
  33  18 -39  -4
Сортировка по строкам
 -19  -6   5  41
 -27   5  37  46
 -39  -4  18  33