Показать сообщение отдельно

  #7  
Старый 05.04.2012, 18:43
justonline
Постоянный
Регистрация: 27.07.2011
Сообщений: 499
Провел на форуме:
179355

Репутация: 53
По умолчанию

Цитата:
Сообщение от Ereee  
Program xren;
var uin,x:longint;
a:text;
begin
writeln('Program by Ereee
');
assign(a,'a.txt');
rewrite(a);
uin:=640000000;
for i:=0 to 641000000 do
begin
uin:=uin+i;
writeln(a,uin);
end;
end.
извращенец вауще
 
Ответить с цитированием