Решил обновить линолеум в своей квартире. перед тем как отправиться в магазин, измерил длину и ширину двух комнат и записал четыре числа на листок. когда он вмагазине попытался определить, сколько квадратным метров линолеума ему нужно купить, онобнаружил, что забыл, каким комнатам соответствуют каждое из чисел. тогда решил купитьстолько линолеума, чтобы его хватило покрыть пол в комнатах, какая бы ни была путаница в размерах комнат.напишите программу, которая определит максимальную суммарную площадь двух комнат поизвестным размерам. вводятся четыре целых числа в диапазоне от 1 до 20 — размеры двух комнатв метрах в неизвестном порядке.вывести одно целое число — максимальную суммарную площадь комнат в квадратных метрах. пример ввода пример вывода 5 2 3 4 26 пояснение к примеру: максимальная площадь 26 квадратных метров получается, если размеры комнат 4x5 и 2x3.

Program aaa;
var
  a,b,c,d,s: real;
begin
  writeln('введите a, b, c, d');
  readln(a,b,c,d);
  if (a*b+c*d)>=(a*c+b*d)
    then 
      if (a*b+c*d)>=(a*d+b*c)
        then s:=a*b+c*d
        else s:=a*d+b*c 
    else 
      if (a*c+b*d)>=(a*d+b*c)
        then s:=a*c+b*d
        else s:=a*d+b*c;
  writeln(s) 
end.

Когда читаешь подобные условия, возникает чувство, что оно плохо переведено с другого языка. Так вроде нет - в профиле указано, что язык русский и возраст 15 лет...

"Ввести натуральное число". Какое число, что оно должно обозначать? Ну хорошо, ввели некое число.
Далее: "Ввести количество чисел". Количество - это значит, СКОЛЬКО чисел будет обрабатываться в программе. Допустим, 10.
И теперь: "Найти произведение...". А где взять значения этих чисел? А нигде! Зато дадут "много ". Ни языка программирования, ни даже намека на то, что нужна программа. А может, программа и не нужна, а нужна блок-схема?
... И только определенный опыт подсказывает, что "Ввести натуральное число" на самом деле означает "Ввести количество чисел", а "Ввести количество чисел" на самом деле подразумевает ввести сами эти числа в указанном количестве.

var
  n,m,i:integer;
  p:longint;
begin
  Write('Количество чисел: '); Read(n);
  p:=1;
  Writeln('Введите указанное количество целых чисел');
  for i:=1 to n do begin
    Read(m);
    if m<0 then p:=p*m
    end;
  Writeln('Произведение отрицательных числе равно ',p)
end.

Тестовое решение:
Количество чисел: 6
Введите указанное количество целых чисел
45 -12 -2 6 0 -8
Произведение отрицательных числе равно -192

Чёрный:  RGB #000000   HSB 0/0/0  
Белый: RGB #   HSB 0/0/100
Светло-розовый: RGB #FFB6C1      HSB 351/29/100
Светло-голубой: RGB  #ADD8E6      HSB 195/25/90
В CMYK ну прям сооовсем не разбираюсь, так что, может пара предложений с разных сайтов.
"Настроить чёрный цвет очень просто. Достаточно выставить K100 и добавить по 50% Cyan, 50%  Yellow и 50%  Magenta".
"Таким образом белый цвет нашей точки в цветовой модели RGB можно записать в следующем виде:R (от слова "red", красный) - 255G (от слова "green", зеленый) - 255B (от слова "blue", синий) - 255".
Светло-розовый: 
0, 28, 24, 0
Светло-голубой пока не могу найти, если найду - допишу в комментариях.