Решите к/р по информатике. Заранее

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами  

Минимальная единица изображения:

растровая: пиксели

векторная: графические формулы

Какая информация хранится в файлах векторного и раствого типа:

Ростовая: о пикселях, составляющих изображения.

Векторная: о графических примитивах, составляющих изображение.

С каких средств получается изображение:

растровая: Paint, Gipm, Adobe Photoshop

Векторная: Microsoft Word, OpenOffice, CorelDRAW , Macromedia Flash.

Объём графических файлов:

растровая: очень большой объём

Векторная: относительно небольшой объём

реакция изображения на изменение его размера:

Растровая: не желательно, возможно искажение.

Векторная: качество не будет потеряно, остаётся прежний вид.

Достоинства графики:

растровая: позволяет работать с фотореалестичными изображениями, простая ретушь и комбинация частей изображения, ввод сканера и и цифровыми камерами.

векторная: маленький объём файла, простое маштабирование.

Недостатки графики:

растровая: большой объём файла, маштабирование с искажением и ухудшение качества,

векторная: не пригодна для реалестичных изображений.

Форматы файлов:

растровая: BPM, GIF, JPG, PCX, TIF.

векторная: WMF, EPS, DXF, CCM