ФУУУУУ!!! Хиппарь позорный

какой блять хиппарь уёбок?

блин...ну как обычно загнул...понятно что ничего не понятно))

я там рассосал там всё так что все должны понять

uses turtle;
procedure tri (n:integer);
var
i : integer;
begin
for i:=1 to 3 do
begin
forw(n);
right(120);
end;
end;
var
a,j:integer ;
begin
right (60);
clear;
a:=20;
for j:=1 to 8 do
begin
tri (a);
a:=a+10;
end;
end.

ВАХ!!!!!!!!
это же Паскаль !!!!

"Вы наверно хотите цветную революцию(Кстати она запланирована на 2012 год, так что готовьтесь)" ты чтоль запланировал?)

Viva la revolution!!!!

нет!
это белый дом, кангрес и пентагон!

uses turtle;
procedure square(size:integer);
var
i : integer;
begin
for i:=1 to 4 do
begin

end;
end;
var
i : integer;
begin
clear;
fast;
for i:=1 to 10 do
begin
if i mod 4 = 0 then
colorn(1)
else
colorn(6);
square(20);
nodraw;
forw(50);
draw;
end;
end.

uses turtle;
procedure square(size:integer);
var
i : integer;
begin
for i:=1 to size do
begin
forw(size);
back(size);
left(90);
forw(1);
right(90);
end;
right(90);
forw(size);
left(90);
end;

var
j,a : integer;
begin
back(190);
fast;
clear;
for j:=1 to 15 do
begin
colorn(j mod 3);
square(10);
nodraw;
forw(15);
draw;
end;
end.


uses turtle;
procedure square(size:integer);
var
i : integer;
begin
for i:=1 to size do
begin
forw(size);
back(size);
left(90);
forw(1);
right(90);
end;
right(90);
forw(size);
left(90);
end;

var
j,a : integer;
begin
a:=40;
back(190);
fast;
clear;
for j:=1 to 20 do
begin
colorn(j mod 7);
square(10);
nodraw;
forw(10);
draw;
end;
end.

uses turtle;
procedure line(size:integer);
var
i : integer;
begin
for i:=1 to size do
begin
forw(size);
back(size);
left(360/9);
end;
right(360/9);
forw(size);
left(360/9);
end;

var
j : integer;
begin


clear;
for j:=1 to 1 do
begin
if j mod 1 = 0 then



line(70);

end;
end.

uses turtle;
procedure square;
var
i : integer;
begin
for i:=1 to 360 do
begin
fast;
forw(1);
right(5);
end;
end;
var
i : integer;
begin
left(120);
clear;
nodraw;
back(200);
draw;
for i:=1 to 7 do
begin
square;
nodraw;
forw(50);
draw;
colorn(i);
end;
end.

uses turtle;
procedure square(size:integer);
var
i : integer;
begin
for i:=1 to 4 do
begin
for i:=1 to size do
begin
forw(size);
back(size);
left(90);
forw(1);
right(90);
end;
right(90);
forw(size);
left(90);
end;
end;
var
i : integer;
s : integer;
d : integer;
begin
left(180);
forw(220);
right(180);
clear;
fast;
for s:=1 to 7 do
begin
for i:=1 to 9 do
begin
if i mod 2 = 0 then
colorn(1)
else
colorn(0);
square(50);
nodraw;
forw(50);
draw;
end;
nodraw;
forw(50);
right(90);
forw(50);
right(90);
forw(500);
left(180);
draw;
begin
if 1 mod 2 = 0 then
colorn(1)
else
colorn(2);
left(180);
forw(50);
right(180);
colorn(0);
square(50);
nodraw;
forw(50);
draw;
end;
end;
end.

что за фигня?!?!здесь спаммеры развелись!!!
и вообще какого хрена тут революция?? я не допущу, чтоб была революция!!! Америку захвачу и взорву!!!! МУАХАХА!!!

Нам нужна Социалистическая Россия.

M1krob, это не спам это программы

Шлессер, ты думаешь что США будет поддерживать социалистическую революцию в России?

Привет!
Вот... создала сегодня свою страничку в лайфинтернете...
А у тебя тут супер просто...
А я вот на майские в Крым рвануть решила с друзьями.
На природе решила развеяться, воздуха свежего глотнуть, а то город утомил за зиму.
Нашли классный отельчик здесь. БРОНИРОВАНИЕ ГОСТИНИЦ В КРЫМУ

Через систему поиска. Очень прикольно...
В общем, заходи ко мне на страничку... пиши... буду рада... кстати, чтото не пойму как стать постоянным читателем... разбираюсь, и понять не могу.