пить плохо курить плохо! но курить лучше! цикл в жизни!
For i=1 to 2 do
begin
Smoke;
drink;
make="life"
end;