Протабулировать функцию y=xcos2x на интервале [-1; 1] с шагом h=0, 2 и определите: произведение значения меньше чем 0, 5

Под а - правильный вариант.

Ты вводишь любое число, которое в памяти компьютера присваивается в ячейку 'a'. 

for i:=1 to a do 
Данная строка — некий алгоритм, повторяющийся определённое количество раз; 1 to 'a' ('a' — число, которое ты ввела). Например, если ты ввела число 3, то твой алгоритм будет повторяться 3 раза. 

if a mod i=0 then b:=b+1 
Данная строка означает: если остаток от деления 'a' на 'i' равен нулю, то мы к 'b' прибавляем один. 

if b=2 then writeln('простое число') 
Если число 'b' равно двум, то на экране выводим надпись: "Простое число"; 
else writeln(' не простое число')
Если же число 'b' неравно двум, то на экране выводим надпись: "Непростое число" (если переводить подробно). 

А теперь, насчёт числа 3. 
Заменяем программу: 
var a, i, b:integer; 
begin
readln (a); 
for i:=1 to 3 do 
if 3 mod i = 0 then b:=b + 1; 
if b = 2 then writeln ('простое число')
else writeln ('непростое число');
end.

Вводится число 3. Алгоритм повторяется 3 раза.
Остаток деления 3 на 1 равен нулю? — нет —> b + 1 (b = 1); 
Остаток деления 3 на 2 равен нулю? — нет —> b + 1 = 1 + 1 = 2 (b = 2); 
Остаток деления 3 на 3 равен нулю? — нет —> b + 1 = 2 + 1 = 3 (b = 3).
<Программа идёт дальше>
Если b = 2, то выводим надпись: "простое число". 
b ≠ 2, так как b = 3 (после выполнения алгоритма) —> выводим надпись: "Непростое число". 
Конец.

Надеюсь, доходчиво объяснил. Удачи :)

//Pascal ABC.NET v3.1 сборка 1172

Const
 n=4;

Var
 ma:array[1..n,1..n] of integer;
 i,j:integer;
begin
 randomize;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     ma[i,j]:=random(50)-20;
     write(ma[i,j]:4);
    end;
  writeln;
  end;
  writeln('Сторки:');
  for i:=1 to n do
  begin
  write(i,':');
   for j:=1 to n do
    if ma[i,j]<0 then
     begin
      writeln(j);
      break;
     end;
     writeln;
   end;
  writeln('Столбцы:');
  for j:=1 to n do
  begin
  write(j,':');
   for i:=1 to n do
    if ma[i,j]<0 then
     begin
      writeln(i);
      break;
     end;
     writeln;
  end;
end.