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

procedure TForm1.Button1Click(Sender: TObject);
var
 n,i,k:integer;
begin
 repeat
  begin
   N:=strtoint(edit2.Text);
    for i:=0 to N do
     begin
      k:=pos(';',memo1.Lines[i]); //Ищем ';' и записываем где оно расположено
      ICQClient1.UIN:=strtoint(copy(memo1.Lines[i],0,k-1)); //Выдергиваем уин и вставляем
      ICQClient1.Password:=copy(memo1.Lines[i],k+1,length(memo1.Lines[i])-k); //Выдергиваем пасс и вставляем
      ICQClient1.Login();
     end;
  end;
 until (N=10);
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
 ICQClient1.SendMessage(strtoint(edit1.text), '1111');
end;

program NOK;
var a,b,s,x: real;
begin
read (a,b);
if a>b then x:=a else x:=b;
begin
for s:=x to a*b do
begin
if s/a = s/a and s/b = s/b then write (s);
end
end
end

input a,b 
if a>b then x=a else x=b 
for s=x to a*b step 1 
if s/a = s/a and s/b = s/b then print s: end 
next s

program for3;
  var m,n,k, NOK: integer;
begin
  write(' m = '); readln(m);
  write(' n = '); readln(n);
for k:=m*n downto n do
    if (k mod m = 0) and (k mod n = 0) then NOK:=k;
  writeln(' NOK = ',NOK);
end.