Закрашивай нужное количество прямоугольников и все
War a, b, x:real
begin
write(a,b)
if (a>b) then x:=a*b
else x:=a-b
println(x)
end
Деление любого числа на 13, затем на 11, затем на 7 равносильно делению на 1001 (13*11*7). Любое трехзначное число при умножении на 1001 даст это же число записанное два раза, т.к. умножение на 1001 можно записать как:
abc*1001=abc*1000+abc*1=abc000+abc=abcabc (где a,b,c - любые цифры)
Отсюда любое шестизначное число, состоящее из двух одинаковых трехзначных, при делении на 1001 даст трехзначное, из которого оно и состоит.
Каждое сообщение, на мой взгляд, сожержит информацию, пусть даже очевидную и несущественную. В каждом есть смысл, что и есть в некоем роде информация.