Впримере все цифры заменены буквами одинаковые-одинаковыми разные-разными рома+рома+рома+рома=март найдите букву т а) 0 б) 2 в) 4 г)6 д)8

  может  в)4 рам(о+о+о+о)   = март сократить рам 4о=т

Это система скрытой реализации. когда можно что-то подать на вход, и что-то получить на выход, но вот конкретно как преобразуются входящие данные в выходящие данные не известно.  вся техника по сути и есть черный ящик.  нажимаешь кнопочку на телевизоре - переключается канал, но как это происходит - не известно, если ты конечно не делал этот телевизор.  если надписи на кнопках будут на не понятном языке и инструкция на понятном языке отсутствует, то такой прибор будет класическим случаем черного ящика.

Ну так правильно пишет , нельзя писать  if b> a> c then begin , пишется правильно так   if (c> b) and (b> a)then begin ,   вообщем вот держи ; program qq; var a,b,c,max,min,med : longint; beginwriteln ('введите три числа'); read (a,b,c); if (c> b) and (b> a)then beginmax : = c; med : = b; min : = a; end; if (b> a) and (a> c)then beginmax : = b; med : = a; min : = c; end; if (a> c) and (c> b)then beginmax : = a; med : = c; min : = b; end; writeln ('наибольшее число', max); writeln ('среднее число', med);   writeln ('наименьшее число', min); end.