Число 1,5 принадлежит множеству … a) C = {c | c  N, 1≤ c≤ 5}
b) A = {a | a  Q, a < 1}
c) B = {b | b  Z, –2≤ b< 2}
d) D = {d | d  R, –1≤ d≤ 1,6}

1. a; c
2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/
3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы.
Исправление:
program prim_a;
var m, n, k: integer;

begin
writeln('введите значения переменных m, n и k');
read(m,n, k);
writeln((m+n+k)*5);
end.
4. a) 
program plowad;
var
a, h: real;

begin
writeln('Введите основание треугольника и высоту');
readln(a, h);
writeln('Площадь треугольника равна ', a*h/2);
end.
5. program proizvedenie;
var 
a, b: integer;

begin
writeln('Введите двузначное число');
readln(a);
b:=a mod 10;
a:=a div 10;
writeln('Произведение цифр двузначного числа равно ', a*b);
end.

Var  ar: array[1..10000]of integer;
  ms: array[1..10000]of integer;
  i, c, n, j, p: integer;  b: boolean;
begin
  randomize;
  b := true;
  c := 1;
  write('Введите количество элементов массива:');
  read(n);
  writeln('Массив:');
  for i := 1 to n do ms[i] := -2147483648;
  for i := 1 to n do begin ar[i] := random(11); write(ar[i], ' '); end;
   for i := 1 to n do
    for j := i + 1 to n do
    begin
      if (ar[i] = ar[j]) then
       begin
        for p := 1 to c do
           if (ar[i] = ms[p]) then b := false;
           if (b = true) then begin ms[c] := ar[i]; c := c + 1; end;
        end;
      b := true;
    end;
  writeln;
  if (c = 1) then write('Нет')
   else  
begin
    write('Есть:');
    for i := 1 to c - 1 do  if(i <> c - 1) then write(ms[i], ',')  else write(ms[i]);
  end;
end.