Вычислить y = x3 4x2 sin 2x при заданном знсчении x

var x,y,n,m,s,z:real;i,k:integer;
begin
write('Введите начало и конец диапазона по х'); Read(n,m);
write('Введите шаг расчета по х'); Read(z);
k:= round((m - n)/z)+1;x:=n;
for I:= 1 to k do begin
y:= x * 34* 2*sin(x);
writeln(x:4:1,y:11:6);x:= x + z;end;end.

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; }