Программисты и те кто хорошо знает информатику, может что то не так написал смотрите скрин
Определите истенностт или ложность предложенного логического высказывания для каждого указанного имени. ответ укажите в виде последовательности едениц и нулей в порядке следования имён(Например:1100(истена, истена, ложь)).(x>15)или не(x<8)и(x<20).
1)А=10
2)Б=17
3)С=28
4)Д=6
ответ:

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}