Беседка

nornik18 пишет

только после выборов она почему то не становиться Единой а больше МедвеПутовской!

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

leliks пишет

как мне то бросить!?

я сказал себе однажды, что я не курю. Детали есть. Сначала я заставил себя осознать полностную профнепригодность, что меня девушки не любят и излишество телефонов у кого-либо.
Я сумел перебороть себя, но девушки меня не любят до сих пор.

Orenpoker пишет

Я всегда думаю мозгом - это раз. Второе - не воспринимайте всё всерьез, в жизни сыграет злую шутку...

Славно. Потому и не место кляузе.

Orenpoker пишет

Сколько тебе медвепуты за эту рекламу заплатили?

Думайте мускулом головным, простите, конечно.

Orenpoker пишет

Сколько тебе медвепуты за эту рекламу заплатили?

Уточнить попрошу, рекламу чего?

#549698 пишет

зарплату тоже обещали поднять

Поверьте мне, так и сделают. Голосуйте за единую Россию. Поднимут всех. Зарплаты тоже.

wazyn пишет

вот какой смысл сосать дым? я не понимаю в чём может быть кайф ....

Может быть, но не кайф. другое. Ощущение того, что мир вертится, что все хорошо, что-то подобное. Честное слово, я, как Вы говорите, сосал дым только для того, чтобы приобщиться к общности, какой-то другой, большей, не тех полтора гопника, которые мне из подъезда выходить не давали, и не тех мужчин, которым я говорил спасибо, и те6м более не милиционерам, да будет их прах изъят. К счастью, друзья -- улыбнитесь.

grinstar пишет

сам бросал год не курил опять начал

Бросайте снова. Так же, как отказаться от плевков в сторону говноеда, который ставит изо дня в день свой белый мерс у меня под окном.

Вам нужно два варианта? Ответ тут однозначный.
Первый вариант это while. Второй repeat until.

Добавлено спустя 16 минут 44 секунды
Вариант с while

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

function ask() : boolean;
var c : char;
begin
write( 'Proceed with program execution? [y/n]' );
readln( c );
if( (c = 'y') or (c = 'Y') or (c = 'н') or (c = 'Н') ) then
result := true
else
result := false;
end;

var i, x2 : integer;
g: string;
begin
while( ask() ) do begin
Writeln('text povtoreniya?');
Readln(g);
Writeln('kol-vo povtorov?');
Readln(x2);
for i:=1 to x2 do Writeln(g);
end;
writeln( 'Done!' );
readln
end.

Добавлено спустя 18 минут 13 секунд
Вариант с repeat until

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

function ask() : boolean;
var c : char;
begin
write( 'Proceed with program execution? [y/n]' );
readln( c );
if( (c = 'y') or (c = 'Y') or (c = 'н') or (c = 'Н') ) then
result := true
else
result := false;
end;

var i, x2 : integer;
g: string;
begin
repeat
Writeln('text povtoreniya?');
Readln(g);
Writeln('kol-vo povtorov?');
Readln(x2);
for i:=1 to x2 do Writeln(g);
until( not ask() );
writeln( 'Done!' );
readln
end.

Поздравляю!

Спасибо!

и Вам спокойной ночи, доброе утро. Вино, Зонтик. Я отфутболировал мяч зонтом . Куда-то вверх. Стекло разбил, но команда моя, фудболирумая, уже не попала в милицию.

Поздравляю с праздником.

Поздравляю!

Поздравляю!

Спасибо!

Поздравляю!

Поздравляю!

Спасибо!

Ладно, простите меня, я трепаться пока перестаю. Мне мой знакомый художник попросил сделать ему подборку акварелей английских художников. Думать видите ли ему лень. Отсель откланиваюсь.