С русским языком дружите?

procedure TForm1.Button1Click(Sender: TObject);
var x,y,p,R,xs,ys:integer;
begin
    R:=StrToInt(Edit1.Text);
    xs:=StrToInt(Edit2.Text);
    ys:=StrToInt(Edit3.Text);
    x:=0;
    y:=R;
    p:=1-R;
    Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
while x<=y do
    begin
    if p<0 then
      begin
    x:=x+1;
    y:=y;
    Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
    p:=p+1+2*x;
      end
    else
      begin
    x:=x+1;
    y:=y-1;
    p:=p+1+2*x-2*y;
    Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
      end;
    end;
begin
    x:=R;
    y:=0;
    p:=1-R;
    Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
while x>y do
    begin
    if p<0 then
      begin
    y:=y+1;
    x:=x;
    p:=p+1+2*y;
    Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
      end
    else
      begin
    y:=y+1;
    x:=x-1;
    p:=p+1+2*y-2*x;
    Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
      end;
   end;
end;
end;
end.

нет, лучше дружить с теми, кто ничему не учится, ничего не знает, курит травку и бухает.

Pilnvara
Sabiedrība ar ierobežotu atbildību (tālāk tekstā - SIA) «ХХХ», ģenerāldirektora I.I.Ivanova personā, balstoties uz SIA «ХХХ» statūtu Nolikumu, pilnvaro Pjotru Petroviču Petrovu (pases dati, pēc deklarētās dzīvesvietas: ***) pārstāvēt SIA «ХХХ» intereses un veikt visas darbības SIA «ХХХ» vārdā Latvijas Republikā, parakstīt visus nepieciešamos dokumentus, tostarp kontraktus un līgumus, pārstāvēt SIA «ХХХ» kā valstiskās, tā arī nevalstiskās organizācijās, kā arī tiesībsargājošajās institūcijās, kā tas noteikts ar pašreiz spēkā esošo Latvijas likumdošanu.

Получай  

nju ne zloupotrebljaju a tak inogda bez russkogo ja zika ne skazatj predlozenie daze !!!!=]

control panel - region and language - administrative - change system locale - Russian (Russia). и рестарт

Зайдите в региональные настройки операционной системы (Start -> Control Panel -> Region and Language), на закладке Administrative нажмите Change system locale... и выберите Russian (Russia).
В русской операционной системе это будет "Пуск -> Панель управления -> Языковые и региональные стандарты -> Дополнительно -> Изменить язык системы... -> Русский (Россия)".

Практически весь мат попадает в эту категорию. Есть кончено слова которыми можно заменить, но это уже не перевод.

О дааааа,ГАРУМЗИМЕС,я до сих пор не понимаю куда их ставить надо.Мне горорят ты слушай где тянется,так я могу каждую гласную тянуть,мля!

Ты со мной, я не один - это чувство греет меня огнём изнутри. Раньше сердце моё было покрыто льдом, ты согрела его своим теплом. Благодарю судьбу за то, что ты есть у меня, ведь без тебя не представляю я теперь ни дня!

Я врядли когда-либо сделаю себе татуировку. Но уж если бы делала, то это была бы руническая надпись, или древнеславянская, например. В общем, на древнем мёртвом языке И слово было бы связано непосредственно со мной, с моей жизнью, а не просто "любовь", "деньги" и т.п.