[zalgo]идрииииить[/zalgo]

[size=4]pizda[/size]

^_ХУЙ

[CODE]program RandomGen;

const C_Filename = 'RandomGen.txt';
var Output: TextFile;

begin
var NMax: integer = 0;
writeln('How much?');
readln(NMax);
AssignFile(Output, C_Filename);
rewrite(Output);
var First: array[1..4] of string = ('Это ', 'Нет, это ', 'Что ', 'Получил ');
var Second: array[1..4] of string = ('фейк', 'Абу', 'случилось', 'пизды');
var Third: array[1..2] of string = ('?', '.');
var i, j, k: integer;
for var N := 1 to NMax do
begin
i:=random(High(First))+1;
j:=random(High(Second))+1;
k:=random(High(Third))+1;
write(Output, First);
write(Output, Second[j]);
writeln(Output, Third[k]);
end;
CloseFile(Output);
end.[/CODE]