Операция and не применима к типам integer и boolean
var
i, a, b, c, d, e , s:integer;
begin
s:=0;
for i:= 10001 to 99999 do begin
a:=i div 10000; // 1-я цифра
b:=(i mod 10000) div 1000; // 2-я цифра
c:=(i mod 1000) div 100; // 3-я цифра
d:=(i mod 100) div 10; // 4-я цифра
e:=i mod 10;//5-я цифра
if (ab) and (bc) and (a*c) and (e mod 2 = 0) and (ac - ce = a - b + c + d+e) then s:=s+1;
end;
write (s);
end.

Теперь пишет "неизвестное имя ас"
var
i, a, b, c, d, e , s:integer;
begin
s:=0;
for i:= 10001 to 99999 do begin
a:=i div 10000; // 1-я цифра
b:=(i mod 10000) div 1000; // 2-я цифра
c:=(i mod 1000) div 100; // 3-я цифра
d:=(i mod 100) div 10; // 4-я цифра
e:=i mod 10;//5-я цифра
if (ab) and (bc) and (ac) and (e mod 2 = 0) and (ac - ce = a - b + c + d+e) then s:=s+1;
end;
write (s);
end.

Написать программу в Turbo Pascal
Даны действительные числа a,b,c (a>0) Полностью исследовать биквадратное уравнение ax^4 +bx^2 +c=0 (если действительных корней нет, то должно быть видно сообщение об этом, иначе найти действительные корни, сообщив, сколько среди них различных)

Теперь пишет "неизвестная переменная i"
var
n, a, b, c, d, e , s:integer;
begin
s:=0;
for i:= 10001 to 99999 do begin
a:=i div 10000; // 1-я цифра
b:=(i mod 10000) div 1000; // 2-я цифра
c:=(i mod 1000) div 100; // 3-я цифра
d:=(i mod 100) div 10; // 4-я цифра
e:=i mod 10;//5-я цифра
if (ab) and (bc) and (ac) and (e mod 2 = 0) and (aс - cе = a - b + c + d+e) then s:=s+1;
end;
write (s);
end.

помогите пожалуйста. Пишет "неизвестный символ 'с' "
var
n, a, b, c, d, e , s:integer;
begin
s:=0;
for i:= 10001 to 99999 do begin
a:=i div 10000; // 1-я цифра
b:=(i mod 10000) div 1000; // 2-я цифра
c:=(i mod 1000) div 100; // 3-я цифра
d:=(i mod 100) div 10; // 4-я цифра
e:=i mod 10;//5-я цифра
if (ab) and (bc) and (ac) and (e mod 2 = 0) and (aс - cе = a - b + c + d+e) then s:=s+1;
end;
write (s);
end.

Решите файнворд, каждая из букв может быть задействована только один раз, должны быть задействованы все буквы и слов должно получиться девять.
А Д Д И К О Е Й
К И С С П Н Т Н
Й Е К Е Л Е Й Е
Я Ч А Т А Р С Р
Н Г Б А К У С Е
И М И К Р К У Р
Л Л О С О А Р С
С К Р Х Е М Р О
В ответе напишите количество слов длиной шесть символов. В ответе запишите только число.

Ниже представлен алгоритм. Получив на вход целое число x, он выводит два числа a и b. Найдите максимальное из чисел x, при вводе которого алгоритм выводит сначала 4, а потом 7.
алг
нач
цел x, a, b
ввод x
a:=0; b:=1
нц пока x>0

  a:=a+1
  b:=b*mod(x,10)
  x:=div(x,10)

кц
вывод a, нс, b
кон

Текст размером 48 Мбайт можно передать по локальной сети за 2 мин 30 секунд. Если же сначала, упаковать документ архиватором, затем передать упакованный файл и распаковать на компьютере пользователя, то общее время передачи (включая упаковку, передачу и распаковку) составит 1 мин 20 секунд. При этом на упаковку и распаковку текста уйдёт 30 секунд. Найдите размер упакованного файла в Мбайтах. В ответ запишите целое число, округлённое по математическим правилам. В ответе запишите только число без единиц измерения.

var
n, a, b, c, d, e , s:integer;
begin
s:=0;
for i:= 10001 to 99999 do begin
a:=i div 10000; // 1-я цифра
b:=(i mod 10000) div 1000; // 2-я цифра
c:=(i mod 1000) div 100; // 3-я цифра
d:=(i mod 100) div 10; // 4-я цифра
e:=i mod 10;//5-я цифра
if (a<>b) and (b<>c) and (a<>c) and (e mod 2 = 0) and (aс - cе = a - b + c + d+e) then s:=s+1;
end;
write (s);
end.

Нашел но Не вижу Число

Составить программу, которая подсчитывает общее количество целых пятизначных чисел, которые удовлетворяют условиям:
a) abcde – пятизначное число;
b) a, b, c, d - разные цифры;
c) aс - cе = a - b + c + d+e;
d) e – четное число
Ответ в числе