Написать программы на Паскале
1) В модельное агентство принимаются девушки с ростом выше 170 см и весом меньше 58. Определите, подходит ли кандидат в модели по введенному весу и росту? В ответе вывести «Подходит» или «Не подходит».
2) Заниматься программированием мы будем по рабочим дням после 18 часов вечера. Введите номер дня недели и время в часах и определите, пришло ли время кодинга. В ответе вывести «Время кодить» или «Не время кодить :( »

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;

революция 1917 года и великая отечественная война (1941-1945)

графический файл состоит из 10000 точек.. используется всего два цвета, то есть на кодировку 1 цвета уходит 1 бит информации.. => 10000 бит

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.