Вводиться существительное 2ого склонения мужского рода единственном числе. Составьте программу, которая склоняет это слово по падежам

PascalABC.NET
Версия 3.3. сборка 1583 (25.11.2017)

var 
 n:integer;
 a:array[1..100] of integer;
begin
 write('Введите размер массива (n<100): ');readln(n);
 var max:=0;
 var min:=101;
 for var i:=1 to n do
 begin
  a[i]:=random(0,100);
  write(a[i],' ');
  if i mod 2=0 then
   if a[i]>max then max:=a[i]
   else
    if a[i]<min then min:=a[i];
 end;
 writeln;
 writeln('Максимальный - ',max);
 writeln('Минимальный - ',min);
 readln;
end.

Пример:

Введите размер массива (n<100): 10
15 32 90 97 35 62 52 37 5 63 
Максимальный - 97
Минимальный - 37

Сделал программу. Считающую простые числа. По заданию мне нужно сделать их с цикла while без for. можно использовать if else. Решил сначала сделать if else а потом код вставить уже в while. Выкладываю вам код. Скажите Правильно я код написал. если нет. Укажите на ошибки. 

1 2 3 4 5 6 7 8 9 10 11 12 #include <iostream> using namespace std; void main () { setlocale (0, ""); int n, m; cout << "введите число: "; cin >> n; if (n % 2 == 0 && n / 2 != 0 ) cout << "  не Простое Число \n"; else     cout << "  простое\n" << endl; }