Решение ребусов в Паскале

[Deseo21]

Помогите решить ребус в паскале, написать программу

не понимаю как это делать, буду оочень благодарна!

сам ребус -
РЕШИ+ЕСЛИ=СИЛЕН

(решение нужно срочно)
заранее спасибо

[Mad_Cat]

uses crt;{(c) volvo http://forum.pascal.net.ru} 
var
  dig: set of byte;

var
  first, second, res: string;
  T: string;

function check(s, what: string): longint;
var
  i: byte;
  n: longint;
begin
  n := 0;
  for i := 1 to length(s) do begin
    n := 10 * n;
    n := n + ( ord(what[ pos(s[i], T) ]) - 48 );
  end;
  check := n;
end;

procedure full(s: string);
var i: integer;
begin
  if length(s) = length(T) then begin
    if check(first, s) + check(second, s) = check(res, s) then
      writeln('found: ', check(first, s), '+', check(second, s), '=',
              check(res, s));
  end
  else
    for i := 0 to 9 do
      if not (i in dig) then begin
        include(dig, i);
        full(s + chr(48 + i));
        exclude(dig, i);
      end
end;

procedure fill_str(var s: string; what: string);
var i: byte;
begin
  for i := 1 to length(what) do
    if pos(what[i], s) = 0 then s := s + what[i];
end;


begin
  T := '';
  first := 'РЕШИ'; second := 'ЕСЛИ'; res := 'СИЛЕН';
  fill_str(T, first); fill_str(T, second); fill_str(T, res);
  full('');
end.

[Deseo21]

и что с этим делать?
мне нужна программа целиком

[Alex11223]

Это решение ребуса (каждой букве соответсвует цифра), чтобы решить его надо записать слова как при сложении в столбик и подставлять числа. Программу можно написать например используя циклы.

[Deseo21]

Это решение ребуса (каждой букве соответсвует цифра), чтобы решить его надо записать слова как при сложении в столбик и подставлять числа. Программу можно написать например используя циклы.


вы могли бы воспроизвести это?
очень буду благодарна

[Alex11223]

Выше же уже выложен код.

[Deseo21]

много непонятных слов...