Целочисленная арифметика и условный оператор

Задача.
Дано трехзначное число. Определить:
a) Является ли сумма его цифр двузначным числом;
b) Является ли произведение его цифр трехзначным числом;
c) Больше ли числа А произведение его цифр;
d) Кратна ли пяти сумма его цифр;
e) Кратна ли сумма его цифр числу А.

Код программы.

Program prim;
Var a,x1,x2,x3:integer;
x,s,p:longint;
Begin
Write('введите трехзначное число');
Readln(a);
X1:=x div 100;
X2:=(x div 10) mod 10;
X3:= x mod 10;
S:=x1+x2+x3;
If (s>9) and (s<100) then writeln (' Сумма двузначное число ') {a}
Else Writeln('Сумма не двузначное число ');
P:=x1*x2*x3;
If (p>99) and (p<1000) then writeln (' Произведение трехзначное число ') {b}
Else Writeln('Произведение не трехзначное число ');
Write('Введите число А');
Readln(a);
If (p<a) then writeln (' произведение больше ', a) {c}
Else Writeln('произведение не больше ', a);
If s mod 5 = 0 then writeln (' сумма цифр кратна 5') {d}
Else Writeln('сумма цифр не кратна 5 ');
If s mod а = 0 then writeln (' сумма цифр кратна ',a) {e}
Else Writeln('сумма цифр не кратна ', a);
Readln
End.

Тренировочные упражнения.
1. Дано трехзначное число.
a. Верно ли, что все его цифры одинаковы?
b. Определить, есть ли среди его цифр одинаковые.
2. Дано четырехзначное число. Определить:
a. Равна ли сумма двух первых его цифр сумме двух его последних цифр;
b. Кратна ли трем сумма его цифр;
c. Кратно ли четырем произведение его цифр;
d. Кратно ли произведение его цифр числу А.
3. Дано натуральное число.
a. Верно ли, что оно заканчивается нечетной цифрой?
b. Верно ли, что оно заканчивается четной цифрой?
4. Является ли число А делителем числа В? А наоборот?
5. Дано четырехзначное число N. Выяснить:
a. Является ли число палиндромом?
b. Верно ли, что все 4 цифры этого числа различны.
6. Трамвайный билет имеет шестизначный номер. Выяснить, является ли билет "счастливым". Билет назовем "счастливым", если сумма первых трех цифр равна сумме последних трех цифр. Примечание. Так как шестизначное число больше 32767(тип Integer), необходимо номер билета определит как тип Longint(до 10 знаков).
7. Выяснить пройдет ли кирпич в круглое отверстие.

Урок 10

Цикл - это замечательное изобретение, которое, в сущности, и делает компьютеры такими ценными. Он позволяет многократно повторить любую часть программы. Цикл не может выполняться вечно, он заканчивается по какому-либо условию. Проверка этого условия может производиться в начале каждого повторяющегося шага, в этом случае цикл называется ПОКА. При проверке условия в конце каждого шага цикл называется ДО. Разновидностью цикла ДО является цикл ПЕРЕСЧЕТ.