Путем пошаговой детализации составьте программы графическим исполнителем для решения следующих :

расчертить все поле в клетку со стороной, равной шагу.
в грис "стрелочка"

Задача 1:

Program Test1;

Var min, i: integer; num: array[1..5] of integer;

Begin

Writeln('Введите 5 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5]);

min := 0;

for i := 1 to 5 do
begin
if (num[i] < min) then
min := num[i];
end;

if (min < 0) then
begin
Writeln();
Writeln('Min = ', min);
end

else
begin
Writeln();
Writeln('Вы не ввели отрицательных чисел!');
end;

End.



Задача 2:

Program Test2;

Var max, i: integer; num: array[1..10] of integer;

Begin

Writeln('Введите 10 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5], num[6], num[7], num[8], num[9], num[10]);

max := 0;

for i := 1 to 10 do
begin
if (num[i] > max) then
begin
if (num[i] mod 2 = 0) then
max := num[i];
end;
end;

if (max > 0) then
begin
Writeln();
Writeln('Max = ', max);
end

else
begin
Writeln();
Writeln('Вы не ввели четных положительных чисел!');
end;

End.

Так как файлы не приложены, то могу только объяснить, как делать это задание.

1. Открываешь файл "p1.bmp" в Paint'е.
2. Открыв файл, справа открываешь меню и выбираешь пункт "Сохранить как". 
3. Внизу есть строка "Тип файла". Нажимаешь на нее и будет выпадающий список (смотри вложение).
4. Выбираешь "24-разрядный рисунок".
5. Сохраняешь в нужной папке.

Точно так же делаешь с остальными файлами, только меняешь тип.

Чтобы сравнить объем полученных файлов, жмешь правой кнопкой мыши на любой из них, нажимаешь "Свойства" и записываешь где-нибудь его размер. Так делаешь для всех файлов.

Посчитаешь и сравнишь объемы.

Качество: оцени сам(а), виднее будет.