Сканируется цветное изображение размером 20, 32×20, 32 дюйм. разрешающая сканера — 1200×1200 dpi, глубина цвета — 24 бита. какой информационный объём будет иметь полученный графический файл?

1) 20,32 * 1 200 = 24 384 пикселей по ширине и высоте;
2) 24 384 * 24 384 = 594 579 456 точек в цветном изображение;
3) 594 579 456 * 24 = 14 269 906 944 бит - информационный объем 
Переведем 
14 269 906 944 бит = 1 783 738 368 байт = 1 741 932 Кб = 1 701,1 Мб = 1,66 Гб

ответ: полученный графический файл будет весом 1,66 Гб

Задача №2
800*600*16 (16 бит на пиксель это 65 536 цветов)=7680000 - бит информационный вес одного поля кадра.
Допустим частота обновления экрана монитора 60 Гц, тогда
7680000*60 (Гц)=460800000 бит в секунду * 60 (секунд)= 27648000000 бит - информационная емкость потока фильма в течении 1 минуты.
Постичаем в байтах
27648000000/8/1024/1024/1024=3.2186 Гигабайт - объём информационного потока
Задача №3
за одну секунду пройдет 36 мегабайт
2 часа = 7200 секунд *36=259200 мегабайт=253.12 Гбайт
Подробнее - на -

Могу в предложить в данном случае использовать goto и метки. Ну, если вы имеете какой то признак неправильных данных, например, это отрицательные значения (предположим, что это неправильные данные) То на этапе, когда вы вводите эти значения, вы должны поставить условный оператор. Т.е.
if a<0 tnen
begin
Writeln('Вы ввели неверные данные');
goto 1
else
goto 2;
Метку 1 вы ставите в начало алгоритма, т.е. туда, откуда вы хотите начать повторное выполнение программы, а метку 2 поставить в продолжение алгоритма, т.е. на тот случай, если данные были введены верно