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

procedure TForm1.Button1Click(Sender: TObject);
var
Key	: HKey;
Buf	: array[0..1000] of char;
Err, index	: longint;
BufSize: Cardinal;
zz: string;
begin
BufSize := 1024;
index:=0;
Err:=RegOpenKey(HKEY_CURRENT_USER,
'Software\WinRAR SFX',Key);
while err=ERROR_SUCCESS do
begin
if strpas(Buf)<>'' then memo1.lines.add(strpas(Buf));
Err:=RegEnumValue(KEY, index, buf,BufSize, nil, nil, nil, nil);
inc(index);
end;
end;

UdpSocket1.SendTo:=(memo1.text)

program Perestanovka;
	  var N,I:byte;
	
    procedure Swap(var a,b:byte);
      var c:byte;
    begin 
          c:=a;
          a:=b;
          b:=c 
    end;

begin
  write('N=');
  readln(N);
  write('I=');
  readln(I);
  Swap (N,I); 
  writeln('N=',N);
  writeln('I=',I);
end.