Братва, всех с Днем Программиста.
Всех благ, побольше денег и поменьше выносящих мозг заказчиков
Всех благ, побольше денег и поменьше выносящих мозг заказчиков
//...
var
Beer:array[0..8] of string;
MsG_beer:string;
begin
Beer[0]:='D';
Beer[1]:='R';
Beer[2]:='I';
Beer[3]:='N';
Beer[4]:='K';
Beer[5]:='E';
Beer[6]:='F';
Beer[7]:='F';
Beer[8]:='E';
Beer[9]:='S';
Beer[10]:='B';
Beer[11]:='E';
Beer[12]:='E';
Beer[13]:='R';
//-------------------------
MsG_beer:=Beer[0]+Beer[1]+Beer[2]+Beer[3]+Beer[4]+Beer[5]+' '+Beer[6]+Beer[7]+Beer[8]+Beer[8]+Beer[8]+Beer[9]+' '+Beer[10]+Beer[11]+Beer[12]+Beer[13];
ShowMessage(MsG_beer);