ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
v1, v2, v4: integer;
username, s: string;
begin
  s := '';
  username := 'ProTeuS';
  v1 := length(username);

  v2 := 2 * v1;
  if v1 >= 0 then
  begin
    v4 := v1 + 1;
    repeat
      v2 := 73 * v2 + 876;
      s := s + IntToStr(v2) + IntToStr(v2*122);
      dec(v4);
    until v4 <= 0;
  end;
  writeln(s);
  readln;
end.